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

http://fkn.ktu10.com/?q=node/8697
С помощью вложенных циклов выведите на экран таблицу умножения числе от 1 до 9

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