Составить программу в паскале, которая в графическом режиме изображает фигуру правильной пятиконечной звезды, одна из сторон горизонтальна. А центр описанной вокруг нее окружности находиться в точке (151, 82) и ее радиус равен 50 пикселей- Pascal(Паскаль)

uses Graph;
var
r: integer; { радиус звезды }
x0,y0: integer; { координаты центра звезды }
x,y: integer; a: integer;
i: integer;
{ координаты конца луча }
{ угол между осью ОХ и прямой, соединяющей центр звезды и конец луча }
grDriver: Integer; grMode:
Integer; ErrCode: Integer;
res: integer;
begin
grDriver := detect;
InitGraph(grDriver, grMode,'e:\tp\bgi');
x0:=100; y0:=100; r:=20;
a:=18; { строим от правого гор. луча }
x:=x0+Round(r*cos(a*2*pi/360));
 y:=y0-Round(r*sin(a*2*pi/360));
 MoveTo(x,y); for i:=1 to 5 do begin
a:=a+36;
x:=x0+Round(r/2*cos(a*2*pi/360));
y:=y0-Round(r/2*sin(a*2*pi/360));
LineTo(x,y);
a:=a+36;
if a > 360 then a:=18;
x:=x0+Round(r*cos(a*2*pi/360));
y:=y0-Round(r*sin(a*2*pi/360)); LineTo(x,y);
end;
 readln;
end.