Решение задачи 3 из главы 13.1

Решение задачи 3 из главы 13.1

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

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