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

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

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

1...N } M раз

1...N } M раз

var a, b, m ,n : integer;
begin
  writeln('vvedite kol.povtorov');
  readln(m);
  writeln('vvedite konecnoe znachenie');
  readln(n);
  a := 1;
  while a <= m do
    begin
      for b := 1 to n do
      write (b,' ');
      writeln();
      a := a + 1;
    end;
  readln();
end.