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

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

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