Question

Нужно написать программу, в pascal

Answer 1

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.