Написать программу, вычисления значения выражения: 1+1/2+1/3+1/4+⋯+1/10

var

a:integer;

b:real;

begin

for a:=1 to 10 do b:=b+1/a;

writeln(b);

end.