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

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

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