program graffika;

uses crt, graph;

var i,j,k,x,y:integer;

sterownik, tryb:integer;

begin

sterownik:=detect;

initgraph (sterownik, tryb, 'c:\tp\bgi');

{ …}

closegraph;

readln;

end.

program graffika;

uses crt, graph;

var i,j,k,x,y:integer;

sterownik, tryb:integer;

begin

sterownik:=detect;

initgraph (sterownik, tryb, 'c:\tp\bgi');

{ …}

closegraph;

readln;

end.

program graffika;

uses crt, graph;

var i,j,k,x,y:integer;

sterownik, tryb:integer;

begin

sterownik:=detect;

initgraph (sterownik, tryb, 'c:\tp\bgi');

{ …}

closegraph;

readln;

end.

program graffika;

uses crt, graph;

var i,j,k,x,y:integer;

sterownik, tryb:integer;

begin

sterownik:=detect;

initgraph (sterownik, tryb, 'c:\tp\bgi');

{ …}

closegraph;

readln;

end.

program graffika;

uses crt, graph;

var i,j,k,x,y:integer;

sterownik, tryb:integer;

begin

sterownik:=detect;

initgraph (sterownik, tryb, 'c:\tp\bgi');

{ …}

closegraph;

readln;

end.

program graffika;

uses crt, graph;

var i,j,k,x,y:integer;

sterownik, tryb:integer;

begin

sterownik:=detect;

initgraph (sterownik, tryb, 'c:\tp\bgi');

{ …}

closegraph;

readln;

end.

---