Оператор цикла с параметром

Предусматривает повторное выполнение некоторого оператора с одновременным автоматическим изменением значения, присваиваемого управляющей переменной (параметру) этого цикла. Управляющая переменная должна быть упорядоченного типа и начальное и конечное ее значения должны быть совместимы с упорядоченным типом. Начальное и конечное значения вычисляются один раз (это выражения), и параметр цикла не должен изменяться внутри цикла с параметром. Если при спецификации to (downto) начальное значение больше (меньше) конечного значения, то цикл не выполняется. При нормальном выходе из цикла с параметром значение параметра остается неопределенным.

Пример {вычисление h(n)=1+1/2+1/3+…+1/n}

Program exfor;

var n,i: integer;

H: real;

begin

read(n); write(n);

h:=0;

for i:=n downto 1 do

h:=h+1/i; n:=n-1;

writeln(h)

end.