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

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

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

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