Задание 1 Урок 13.1

Задание 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);
    b := 1;
    writeln();
    a := a + 1;
   until (a > 9);
   readln();
end.