Когда нечем заняться в паскале

uses crt, graphabc; var a1,a2,a3,a4,t : real; n,i,ra : longint; begin setwindowsize(1280,720); a1:=0; a2:=pi/2; a3:=pi; a4:=3*pi/2; ra:=45; while true do begin i:=i 4; t:=t 1; line (640 round(cos(a1 pi*i/ra)*t),360 round(sin(a1 pi*i/ra)*t),640 round(cos(a2 pi*i/ra)*t),360 round(sin(a2 pi*i/ra)*t)); line (640 round(cos(a2 pi*i/ra)*t),360 round(sin(a2 pi*i/ra)*t),640 round(cos(a3 pi*i/ra)*t),360 round(sin(a3 pi*i/ra)*t)); line (640 round(cos(a4 pi*i/ra)*t),360 round(sin(a4 pi*i/ra)*t),640 round(cos(a3 pi*i/ra)*t),360 round(sin(a3 pi*i/ra)*t)); line (640 round(cos(a1 pi*i/ra)*t),360 round(sin(a1 pi*i/ra)*t),640 round(cos(a4 pi*i/ra)*t),360 round(sin(a4 pi*i/ra)*t)); delay(10); end; end.