Дано натуральное число n (n вводится пользователем с клавиатуры). Вычислить:

а у меня нормально работает

щас ещё раз попробую

Program math;var a: real;var i,n: integer;begina:=1;readln(n);for i:=1 to n dobegin a:=a+(1/i);end;writeln(a);end.

вот так пиши

заработал?

Program math;var a: real;var i,n: integer;begina:=1;readln(n);for i:=1 to n dobegin  a:=a+(1/i);end;writeln(a);end.