помните решить 4 задание , срочно!!!​

Ответ:

uses GraphABC;

procedure kvadrat(x,y:integer);

var i:integer;

begin

for i:=1 to 6 do

begin

Rectangle (x,x,y,y);

x:=x+25;

y:=y-25

end

end;

var x,y:integer;

begin

SetWindowWidth(400);

SetWindowHeight(400);

SetPenWidth(2);

x:=50;

y:=350;

kvadrat (x,y)

end.