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

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

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

var i, j: integer;

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