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

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

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

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

    writeln();
    i:=i+1;

  until (i > 9);
  readln();
end.