Задача 2 Урок 13

http://fkn.ktu10.com/?q=node/8697
Выведите на экран таблицу умножения используя только циклы вида 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,' ');
 j:=j+1;  
 end;
 i:=i+1;
 writeln();
 end;
 end.