Program Vardas;
uses graph,
begin
ekranas;
end.

unit Grafika;
 
interface
uses Grafika,Graph;
procedure ekranas;
 
implementation
Procedure Ekranas;
var gd,gm : integer;
begin
 (*gd := D8Bit; (8Bitu kodas*)
 gd := Detect;//Full window(pilnas langas)=detect; m640x480=Lango dydis jei  m640x480 tada reikia gd pakeisti i gm
 Initgraph(gd,gm,' ');
 {Isitikinkite, kad visada paziurite Graphresult!}
if GraphResult<>grOK then begin
 //WriteLn('Programa negalima naudotis atsiprasome(Can't use this program sorry');
halt(1);
 end;
 {Mes dabar esame pilname lange(We now in full screen}
end;
begin
end.