Задача 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.