Uses Crt,graph; Var a,b,n,x0,y0,y01,x01,x,y,x1,y1,cx,cy,r,i:integer; phi,phi1,phi3,phi4:real; Begin a:=detect; InitGraph(a,b,'C:\Tp\BGi'); phi:=2*pi; phi1:=(pi*4)/3; phi3:=pi; phi4:=pi/2; for i:=0 to 59 do repeat setcolor(2); phi:=phi+pi/180; phi1:=phi1+pi/180; phi3:=phi3+pi/180; phi4:=phi4+pi/180; r:=round(50*sqrt(2)); cx:=200; cy:=200; x:=cx+round(r*cos(phi)); y:=cy+round(r*sin(phi)); x1:=cx+round(r*cos(phi1)); y1:=cy+round(r*sin(phi1)); x0:=cx+round(r*cos(phi3)); y0:=cy+round(r*sin(phi3)); x01:=cx+round(r*cos(phi4)); y01:=cy+round(r*sin(phi4)); {zelena9} Line(x0,y0,x1,y1) ; {sera9} setcolor(8); Line(x1,y1,x,y); {seni9} setcolor(9); Line(x,y,x01,y01); SetColor(10); {salatova9} Line(x01,y01,x0,y0); {-----------------} x:=cx+round(r*cos(phi)); y:=cy+round(r*sin(phi)); x1:=cx+round(r*cos(phi1)); y1:=cy+round(r*sin(phi1)); x0:=cx+round(r*cos(phi3)); y0:=cy+round(r*sin(phi3)); x01:=cx+round(r*cos(phi4)); y01:=cy+round(r*sin(phi4)); delay(3000); setcolor(0); {zelena9} Line(x0,y0,x1,y1) ; {sera9} Line(x1,y1,x,y); {seni9} Line(x,y,x01,y01); {salatova9} Line(x01,y01,x0,y0); until keypressed; end.