Uses graphabc;
var i,d,v: integer;
begin
for i:=1 to 7 do
begin
SetPenWidth(5);
DrawRectangle(40+d,380-v,600-d,437-v);
d:=d+40;
v:=v+57;
end
end.
Var n:=6;
while n>0
begin
writeln("Я люблю Беларусь");
n:=n-1;
end;
Картинка во вложении. Сначала рисуем по красным стрелкам, потом - по синим. Или наоборот.
Включена кнопка колонки . я тоже сейчас на 5 вопросе☺