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

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

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;
end.