Решение задачи 9 из главы 13.1

Решение задачи 9 из главы 13.1

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

11......NN}M раз

program Project9;
var i, a, b, c: integer;
begin
  b:=1;
  writeln('Vvedite chislo povtoriaushihsia strok:');
  readln(a);
  writeln('Vvedite chislo pravoj granitsy stroki:');
  readln(c);
  while (a >= b) do
  begin
       for i:=1 to c do
           write(i, ' ');
           i:=i+1;
           writeln();
       b:=b+1;
  end;
  readln();
end.