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

Задача 10 Урок 13.1:

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

var i, j,m,n: integer;
begin
  i := 1;
  writeln ('vvedite ogranichitel') ;
  readln (m);
  writeln ('vvedite chislo');
  readln (n);
  repeat
    j := 1;
    while (j<=n) do
      begin
        write(j, ' ');
        j:=j+1;
      end;
    writeln();
    i:=i+1;
  until (i > m);
  readln();
end. 

Вывод консоли:

vvedite ogranichitel
10
vvedite chislo
9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9