Текст задания

Написать программу, которая выводит на экран изображение заданного графического объекта (с соблюдением заданной цветовой гаммы).

Исходный код программы

Program Lab4;
Uses crt, graph;
var
xc, yc, gd, gm,r: integer;
begin
Write ('PA3MEP PucyHKA:');
Readln(r);
  gd:=detect;
  initgraph (gd, gm, 'c:\Tp7\bgi');
  if Graphresult<>0 then
   begin
    write ('Graphic Error:',grapherrormsg (graphresult));
    halt;
    end;
xc:=getmaxx div 2;
yc:=getmaxy div 2;
setfillstyle(1,6);
Bar (xc-3*r, yc-3*r, xc+3*r,yc+3*r);
setcolor(0);
moveto(xc+3*r,yc+3*r);
lineto(xc+3*r,yc-3*r);
lineto(xc-3*r,yc-3*r);
lineto(xc-3*r,yc+3*r);
lineto(xc+3*r,yc+3*r);
moveto(xc+r,yc-2*r);
lineto(xc+r,yc+2*r);
lineto(xc-r,yc+2*r);
lineto(xc-r,yc-2*r);
lineto(xc+r,yc-2*r);
line (xc,yc-2*r,xc,yc+2*r);
line (xc,yc-r,xc+r,yc-r);
setcolor(green);
line(xc-4*r,yc-2*r,xc,yc-6*r);
line(xc,yc-6*r,xc+4*r,yc-2*r);
 readln;
closegraph;
end.

Результат выполнения программы