Даны действительное а и натуральное n. Вычислить 1+1/2+1/3+1/4+...+1/n.

А еще так можно:// PascalABC.NET 3.1, сборка 1172 от 19.02.2016begin var a:=Range(1,ReadInteger('n=')).Select(x->1/x).Sum; Writeln('a=',a)end.