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

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

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

var
  n,m,i,j:integer;
begin
  writeln('vvedite 2 chisla N i M: ');
  readln(n,m);
  while i<=n do
    begin
      j:=1;
      while j<=m do
        begin
          write(j, ' ');
          j:=j+1;
        end;
      writeln();
      i:=i+1;
    end;
    writeln();
  readln();
end.