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

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

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

program U13_1Z1;
var a, b: integer;
begin
  a:=1;
  b:=1;
  repeat
      repeat
        writeln(a, '*', b, '=', a*b);
      b:=b+1;
      until (b>10);
    a:=a+1;
    b:=1;
    writeln();
  until (a>10);

  readln();
end.