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

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

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

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