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

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

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

var i, j: integer;

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