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

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

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

program Project15;
var a, i: integer;
begin
   a:=1;
   while (a<=9) do
      begin
        i:=1;
        while (i<=9)do
           begin
             writeln(a, ':', i, ' = ', a div i);
             i:=i+1;
           end;
        a:=a+1;
        writeln();
      end;
  readln();
end.