2 1/3+(-0.75)+(-1/4)
Var i,n:integer; s: real; Begin Writeln('Число слагаемых - '); readln(n); for i:=1 to n do s:=s+1/i; writeln('s = ',s); End.