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

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

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

program U13_1Z5;
var n, m, i: integer;
begin
  writeln('vvedite m');
  readln(m);
  writeln('vvedite n');
  readln(n);
  while m>=1 do
    begin
     for i:=1 to n do
       begin
         write(i, ' ');
       end;
     m:=m-1;
     i:=1;
     writeln();
    end;
  readln();
end.