Задача 15 урок 13.1

С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.

var i, j, m: integer;
begin
  m :=1; //множитель(счетчик) вложенного цикла
  for i := 1 to 9 do
    begin
      for j := 1 to 9 do
        begin
          writeln(j*m, '/', i, ' = ', (j*m) div i);
          if j = 9 then
            m := m+1;
        end;
    end;

   readln();
end.