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

http://fkn.ktu10.com/?q=node/8697
Выведите на экран таблицу умножения используя только циклы вида repeat/until.

program task1_leson13_1;
var i,j:integer;
begin
     i := 1;
     repeat
       j := 1;           // приводим множитель в начальное состояние
       repeat
         writeln(i, ' * ',j,' = ',i * j);
         j := j + 1;
       until (j > 9);
       writeln();
       i := i + 1;
     until (i > 9);
     readln();
end.