Простая графика.

uses graph;
{рисование осей параметры центр и половина длины}
procedure Osi(x,y,d:integer);
begin
setcolor(1);
line(x-d,y,x+d,y);
outtextXY(x+d-10,y-15,'X');
line(x,y-d,x,y+d);
outtextXY(x+5,y-d,'Y');
end;
{рисование фигур, параметры центр, отклонение вершин от центра, коэффициенты
направления и координаты точек закрашивания}
procedure Fig(x,y,w,kx1,ky1,kx2,ky2,kx3,ky3,kx4,ky4,f1,f2:integer);
begin
setcolor(8);
line(x-kx1*w,y-ky1*w,x-kx2*w,y-ky2*w);
line(x-kx2*w,y-ky2*w,x+kx3*w,y+ky3*w);
line(x+kx3*w,y+ky3*w,x+kx4*w,y+ky4*w);
line(x+kx4*w,y+ky4*w,x-kx1*w,y-ky1*w);
setfillstyle(3,8);
floodfill(f1,f2,8);
end;
var x,y,i,d,w:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 4;
y:=getmaxY div 2;
d:=x div 2-10;
w:=d-15;
setbkcolor(15);
{3 фигуры}
Fig(x,y,w,0,0,0,1,1,-1,1,0,x+2,y-2);
Fig(2*x,y,w,0,0,1,0,-1,1,0,1,2*x-2,y+2);
Fig(3*x,y,w,1,0, 0,1, 1,0, 0,1,3*x,y);
{оси к ним}
for i:=1 to 3 do
Osi(x*i,y,d);
readln
end.

uses crt,graph;
type Rect=object
          x1,y1,x2,y2,c:integer;
          procedure Init(xc,yc,w,h,cv:integer);
          procedure Move;
          end;
procedure Rect.Init;
begin
x1:=xc-w;
y1:=yc-h;
x2:=xc+w;
y2:=yc+h;
c:=cv;
end;
procedure Rect.Move;
begin
setcolor(c);
rectangle(x1,y1,x2,y2);
end;
 
var k:Rect;
    x,y,i,h,w,d:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
w:=50;
h:=30;
d:=10;
for i:=1 to 10 do
 begin
  k.init(x,y,(w div 2)+(i-1)*d,(h div 2)+(i-1)*d,i+1);
  k.move;
 end;
readln
end.