Задача 2 урок 13.1

Задача 2 урок 13.1

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

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