ГМ
Галина Мишланова
объясните пожалуйста программу на паскале
uses crt,graph;
var x,y,r,a,y0:integer;
procedure Trg(x,y,d:integer);
var ax,ay,bx,by,cx,cy:integer;
begin
ax:=x;ay:=y-d;
bx:=x-round(d*cos(pi/6));by:=y+round(d*sin(pi/6));
cx:=x+round(d*cos(pi/6));cy:=y+round(d*sin(pi/6));
line(ax,ay,bx,by);
line(bx,by,cx,cy);
line(cx,cy,ax,ay);
end;
begin
initgraph(x,y,'');
y0:=getmaxy div 2;
r:=10;
a:=100;
x:=r;
y:=y0;
while x