Урок 13.1 Задача 9

Урок 13.1 Задача 9

M раз выведете на экран числа от 1 до N с помощью вложенных циклов. Так чтобы в консоли было:
1... N}M
1... N}M
Решение:

var m, n, i, j : integer;
begin
  writeln('Введите число  M');
  readln(m);
  writeln('Введите число N');
  readln(n);
  for i := 1 to m do
    begin
      for j := 1 to n do
        write(j, ' ' );
        writeln();
    end;
  readln();
end.