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

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

2. Выведите на экран таблицу умножения используя только циклы вида while.

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