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

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

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

1x1 = 1
1x2 = 2
......

program Variant2;
var b, i: integer;
begin
  b:= 1;
  i:= 1;
  repeat
    repeat
      writeln(b, 'x', i, ' = ', b * i);
      i:= i + 1;
    until (i = 10);
    writeln();
    i:= 1;
    b:= b + 1;

  until (b = 10);
end.