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

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

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

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