Нарисовать фигуру

uses graphABC;
type point=record
           x,y:integer;
           end;
var p:array[1..6] of point;
    r,c,i:integer;
    u:real;
begin
setwindowsize(500,500);
centerwindow;
c:=250;
r:=100;
u:=pi/2;
for i:=1 to 6 do
 begin
  p[i].x:=c+round(r*cos(u));
  p[i].y:=c-round(r*sin(u));
  u:=u+2*pi/5;
 end;
moveto(p[1].x,p[1].y);
for i:=2 to 6 do
lineto(p[i].x,p[i].y);
line(p[1].x,p[1].y,p[3].x,p[3].y);
line(p[1].x,p[1].y,p[4].x,p[4].y);
line(p[2].x,p[2].y,p[5].x,p[5].y);
end.

uses graphABC;
var p:array of point;
    r,c,i:integer;
    u:real;
begin
setwindowsize(500,500);
centerwindow;
c:=250;
r:=100;
u:=pi/2;
setlength(p,6);
for i:=0 to 5 do
 begin
  p[i].x:=c+round(r*cos(u));
  p[i].y:=c-round(r*sin(u));
  u:=u+2*pi/5;
 end;
polygon(p);
line(p[0].x,p[0].y,p[2].x,p[2].y);
line(p[0].x,p[0].y,p[3].x,p[3].y);
line(p[1].x,p[1].y,p[4].x,p[4].y);
end.

uses GraphWPF;
 
const r = 200;
 
function x(n : integer) := Window.Center.X + r*sin(pi*n*0.4);
function y(n : integer) := Window.Center.Y - r*cos(pi*n*0.4);
 
begin
  line(x(0),y(0),x(1),y(1));
  line(x(0),y(0),x(2),y(2));
  line(x(0),y(0),x(3),y(3));
  line(x(0),y(0),x(4),y(4));
  line(x(1),y(1),x(2),y(2));
  line(x(1),y(1),x(4),y(4));
  line(x(2),y(2),x(3),y(3));
  line(x(3),y(3),x(4),y(4));
end.