Построить многоугольник со сторонами 60 и 20 точек — Pascal(Паскаль)

uses graph, crt;

var
  gd, gm, x, x1, y, y1: integer;

begin
  initgraph(gd, gm, 'c:\bp\bgi');
  outtextxy(20, 0,
    'Введите координаты левого верхнего угла прямоугольника (x,y)');
  readln(x);
  readln(y);
  outtextxy(20, 10,
    'Введите координаты правого нижнего угла прямоугольника (x1,y1)');
  readln(x1);
  readln(y1);
  rectangle(x, y, x1, y1);
  repeat
    ;
  until keypressed;
  closegraph;

end.