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

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

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

program zadacha9;
var i, j, m, n: integer;
begin
  writeln('Vvedite kollichestvo strok:');
  readln(m);
  writeln('Vvedite kollichestvo simvolov:');
  readln(n);
  i:=1;
  while i <= m do
    begin
      j:=1;
      while j <= n do
        begin
          write(j,' ');
          j:=j+1;
        end;
      writeln();
      i:=i+1;
    end;
  readln();
end.