Задание 9 Урок 13.1

Задание 9 Урок 13.1

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

 var i,i1,i2,n,m : integer;
begin
  i1 := 0;
  i2 := 1;

  write('Введите N и нажмите ENTER: ');
  readln(n);

  write('Введите M и нажмите ENTER: ');
  readln(m);
  while (i1 < m) do
    begin
      for i := 1 to 2 do
      begin
        repeat
        write(i2, ' ');
        i2 += 1;
        until (i2 >= n);
        writeln();
        i2 := 1;
      end;
    writeln();
    i1 += 1;
    end;
  write('Программа завершена, нажмите ENTER!');
  readln();
end.