Три стула по углам, и 2 у стенок
Заключить фразу в кавычки.
Программа на PascalABC(программу из блокнота копируете и вставляете в pascalABC)
Var
a, b, c, d: byte;
begin
for a := 1 to 5 do
begin
for b := 1 to 5 do
begin
c := (c = 10 ? 1 : c + 1);
write((a mod 10 = 1 ? c : 16 - c):3);
end;
writeln();
end;
end.