В паскале написать программу, рисующую пучок прямых, выходящих из одной точки.

uses graphabc;var x,y,r,x1,y1,i:integer;beginx:=325;y:=225;r:=200;for i:=1 to 360 do begin  Setpencolor(clblack);  x1:=x+round(r*cos(i*pi/180));  y1:=y-round(r*sin(i*pi/180));  line(x,y,x1,y1); end;end.uses graphabc;var x,y,r,x1,y1,i:integer;beginx:=325;y:=225;r:=200;for i:=1 to 135 do begin  Setpencolor(clblack);  x1:=x+round(r*cos(i*pi/180));  y1:=y-round(r*sin(i*pi/180));  line(x,y,x1,y1); end;end.uses graphabc;var x,y,r,x1,y1,i:integer;beginx:=100;y:=50;r:=200;for i:=1 to 360 do begin  Setpencolor(clblack);  x1:=x+round(r*cos(i*pi/180))+200;  y1:=y-round(r*sin(i*pi/180))+200;  line(x,y,x1,y1); end;end.