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

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

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

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