Нарисовать рисунок

program star;
 
uses
  Crt,Graph;
 
procedure krest(xkr,ykr,lkr: integer); // Процедура для прорисовки крестообразной фигуры.
var
  t: integer;
begin
  t:= 2*(lkr div 3);
  line(xkr,ykr,xkr+lkr,ykr);
  line(xkr,ykr,xkr-lkr,ykr);
  line(xkr,ykr,xkr,ykr+lkr);
  line(xkr,ykr,xkr,ykr-lkr);
  line(xkr,ykr,xkr+t,ykr+t);
  line(xkr,ykr,xkr-t,ykr-t);
  line(xkr,ykr,xkr+t,ykr-t);
  line(xkr,ykr,xkr-t,ykr+t);
end;
 
var
  Gd, Gm : SmallInt;  // Переменные для установки графического режима.
  x,y: integer;    // Переменные для хранения значений координат.
  OtrX,OtrY: integer;  // Переменные для хранения значений интервалов по оси X и Y
  i: integer;  // Промежуточные переменные для организации циклов.
  rasmer: integer; // Переменная для хранения значения величины крестообразной фигуры.
begin
 
 Gd := Detect;
 InitGraph(Gd, Gm, '');   // Установка графического режима.
 if GraphResult <> grOk then
   Halt(1);
 Randomize;
 ClearViewPort;
 SetColor(15);   //  Установка цвета линии.
 SetLinestyle(0,0,3);
 rasmer:=15;
 OtrX:=getmaxX div 12;  //  Вычисление длины интервала по оси X.
 OtrY:=getmaxY div 12;   // Вычисление длины интервала по оси Y.
 X:= 0;
 y:= 0;
 for i:=1 to 11 do
  begin
  x:= x + Otrx;      //  Шаговое приращение координаты X на величину интервала.
  y:= y + OtrY;      //  Шаговое приращение координаты Y на величину интервала.
  krest(x,y,rasmer);  // Шаговое приращение координаты X на величину интервала.
  end;
 x:= 12*OtrX;
 y:= 0;
 for i:= 1 to 11 do
  begin
  x:= x - Otrx ;  // Шаговое вычитание координаты X на величину интервала.
  y:= y + OtrY;         // Шаговое приращение координаты Y на величину интервала.
  krest(x,y,rasmer);    // Шаговое приращение координаты X на величину интервала.
  end;
ReadLn;
CloseGraph;            // Выход из графического режима.
 
end.