Вопрос по задаче №9 из главы 13.1

Просьба подсказать по задаче №9 из главы 13.1
Решил но не до конца

var a, b, m, i: integer;
begin
  writeln('vvedite celoe chislo M');
  readln(m); //вводим число ограничитель
  writeln('vvedite vtoroe celoe chislo A');
  readln(a); //вводим второе число
  writeln('vvedite vtoroe celoe chislo B');
  readln(b); //вводим второе число

  for i:=1 to a do // цикл по строкам
   write(i, ' ');
   begin
     writeln(); // переносим строку
     for i:=1 to b do // цикл по строкам
       write(i, ' ');
   end;
  readln();
end.