PROGRAM Tryb_Graficzny;

USES Crt, Graph;

VAR Karta, Tryb : Integer;
    Zn          : Char;

BEGIN
  ClrScr;
  WriteLn('Jestes w trybie Tekstowym !');
  Zn:=ReadKey;
  DetectGraph(Karta, Tryb);
  InitGraph(Karta, Tryb, 'c:/tp/bgi'); 
  OutText('A teraz w trybie Graficznym !');
  Zn:=ReadKey;
  CloseGraph;
  WriteLn('I znowu w trybie Tekstowym !');
  Zn:=ReadKey;    
END.