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.