uses Drawman;

var r,x,y,i:integer;

procedure kvadrat (var x,y,r:integer);

var j:integer;

begin

for j:=1 to 4 do

begin

topoint(x,y);

pendown;

onvector(-r,r);

onvector(r,r);

onvector(r,-r);

onvector(-r,-r);

penup;

r:=r+1;

y:=y-1

end;

end;

begin

Field (22,14);

r:=1;

x:=6;

y:=6;

for i:=1 to 3 do

begin

kvadrat (x,y,r);

r:=1;

x:=x+5;

y:=y+4;

end

end.