[nemo_the_capitain@vk]

немного покопался, получилось:

Код:

uses graphabc;
var x,y:integer; pov:integer;
begin
setpenwidth (3);
centerwindow;
SetCoordinateOrigin (300,250);
line (-200,0,200,0);
line (0,200,0,-200);
Arc(0,0,150,360,0);
pen.color:=clred;
writeln ('Введите угол поворота');
readln (pov);
Arc(0,0,150,pov,0);
lineto (0,0);
end.

но как провести линию от конца дуги в центр координат?