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

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

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

var i, j: integer;
  begin
    i:=1;
    repeat
      j:=1;
      repeat
        writeln(i,'x',j,'=',i*j);
        j:=j+1;
      until (j>9);
      writeln();
      i:=i+1;
    until (i>9);
  readln()
  end.