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

http://fkn.ktu10.com/?q=node/8697

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

program task15_lesson13_1;
var i, j: Integer;
begin
  For j:=1 to 9 do      // делитель выводим во внешний цикл
  Begin
    For i:=1 to j*10 do
        If ((i mod j) = 0) then
          WriteLn(i , ' : ', j, ' = ', i div j);
    WriteLn();
  End;

  readln;
end.