Нарисуйте что нибуть в pascal abc, кроме зайцев, домиков и елок. Пож

Снежинка типаuses graphabc; var a: array[1… 5] of record x,y,x0,y0,g: real; end; i,c: integer; beginsetwindowsize (800,600); setpenwidth (2); a[1].x: =400+150*cos (a[1].g/180*pi); a[1].y: =300+150*sin (a[1].g/180*pi); a[1].x0: =a[1].x; a[1].y0: =a[1].y; a[1].g: =a[1].g+1- (trunc (a[1].g) div 360)*360; for i: =2 to 5 do begina[i].x: =a[i-1].x+150*power (0,65,i)*cos (a[i].g/180*pi); a[i].y: =a[i-1].y+150*power (0,65,i)*sin (a[i].g/180*pi); a[i].x0: =a[i].x; a[i].y0: =a[i].y; a[i].g: =a[i].g+power (10,i-1) — (trunc (a[i].g) div 360)*360; end; for c: =1 to 360 dobegina[1].x: =400+150*cos (a[1].g/180*pi); a[1].y: =300+150*sin (a[1].g/180*pi); line (round (a[1].x0) ,round (a[1].y0) ,round (a[1].x) ,round (a[1].y); a[1].x0: =a[1].x; a[1].y0: =a[1].y; a[1].g: =a[1].g+1- (trunc (a[1].g) div 360)*360; for i: =2 to 5 do begina[i].x: =a[i-1].x+150*power (0,65,i)*cos (a[i].g/180*pi); a[i].y: =a[i-1].y+150*power (0,65,i)*sin (a[i].g/180*pi); line (round (a[i].x0) ,round (a[i].y0) ,round (a[i].x) ,round (a[i].y); a[i].x0: =a[i].x; a[i].y0: =a[i].y; a[i].g: =a[i].g+power (10,i-1) — (trunc (a[i].g) div 360)*360; end; end; end.