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

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

{Выведите на экран таблицу умножения используя один цикл while и один repeat-until }

program task3_lesson13_1;
var i, j : integer;
begin
     i := 1;
     while i <= 9 do
           begin
             j := 1;
             repeat
                   writeln(i, ' * ',j,' = ',i * j);
                   j := j + 1;
             until (j > 9);
             i := i + 1;
             writeln();
           end;
     readln();
end.