procedure linii_11(r1:real;x,y:integer);
var
m:integer;
n:integer;
coo:arccoordstype;
begin
setcolor(15);
arc(x,y,0,80,round(r1+r1/3));
getarccoords(coo);
m:=coo.Xend;
n:=coo.Yend;
line(x,y,m,n);
line(m,n,m+3,n+3);
line(m,n,m-3,n+3);
end;
Графика, Подскажите почему не проводится линия |