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

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

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

1x1 = 1
1x2 = 2
......
}

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