Решение задачи №3 из главы 13.1

Задача №3 из главы 13.1

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

var i, j: integer;
begin
  i := 1; // начальное значение для счетчика внешнего цикла
  while (i <= 9) do //начало тела внешнего цикла
   begin
    j := 1;
    repeat // начало тела внешнего цикла
      write(i, '*', j, '=', i*j, ' ');//построение таблицы
        j:=j+1; // увеличиваем значение счетчика внутреннего цикла
    until (j>=9);
    writeln(); // переносим строку
    i:=i+1; // увеличиваем значение счетчика внешнего цикла

  end;  // проверка условия выхода из внешнего цикла и конец его тела

  readln();
end.