Тип экономической политики, при котором задача государства заключается в поддержании постоянного темпа роста денежного предложения

Если я правильно понял задание, то вот:

var y:real; n:integer;
begin
readln(n);
repeat
y:=y+1/n;
n:=n-1;
until n=0;
writeln(y);
end.