program line;
uses graph;
var
gd,gm:integer;
begin
gd:=0;
initgraph(gd,gm,'D:\pascal\tp7\bgi');
line(90,90,180,180);
end.
После процедуры line просит поставить точку,хотя мне этого и не надо))..что за бред??
program line;
uses graph;
var
gd,gm:integer;
begin
gd:=0;
initgraph(gd,gm,'D:\pascal\tp7\bgi');
line(90,90,180,180);
end.