Задание 15 Урок 13.1

Задание 15 Урок 13.1

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

var i,i1: integer;
begin
  i := 1;
  i1 := 1;

  for i := 1 to 9 do
  begin
    for i1 := 1 to 9 do
    begin
       writeln((i * i1), ' / ', i,' = ', ((i * i1) div i));
    end;
    writeln();
  end;
  readln();
end.