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

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

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

program  u131z1;
var a,i,j: integer;
begin
  i:=1;
  repeat
    j:=1;
    repeat
    begin
      write(i, '*', j, '= ', i*j, ' ');
      j:= j +1;
    end;
    until (j >9);
    i:=i + 1;
  until(i > 9);

  readln();
end.