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

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

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

1. 1......N}M раз
2. 1......N}

var M, N, i : integer;

begin
  write('Enter an integer m and n : ');
  readln(M, N);
  while (M > 0) do
  begin
    M := M - 1;
    writeln();
    for i := 1 to N do
      write(i, ' ');
  end;
  readln();
end.