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

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

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

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