Решение задачи №2 из главы 13.1

Задача №2 из главы 13.1

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

var i, j: integer;
begin
  i := 1; // начальное значение для счетчика внешнего цикла
  while (i <= 9) do // цикл по строкам таблицы, счетчик как левый множитель
    begin
    j := 1;// начальное значение для счетчика внутренного цикла
     while (j <= 9) do // выводим равенства очередной строки, счётчик как правый множитель
        begin
         write(i, '*', j, '=', i*j, ' ');
      writeln(); // переносим строку
      j:=j+1;
      end;
      i:=i+1; // увеличиваем значение счетчика внешнего цикла
    end;
   readln();
end.