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

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

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

var m,n: integer;
begin
  n := 1;
  while (n <= 9) do
     begin
       m := 1;
       while (m <= 9) do
          begin
            writeln(n, '/', m, '=', n / m, ' ');
            m := m + 1;
          end;
       n := n + 1;
     end;
  readln();
end.