uses
crt,graph;
var
gk,m:
integer
;
begin
clrscr;
detectgraph(gk,m);
initgraph(gk,m,'e\:tp\bgi);
line(
200
,
400
);
220
readln;
closegraph;
end
.