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

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

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

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