program SumaCuRec;
var n:integer;
function suma(m:integer):real;
begin
if m<3 then suma:=18
else suma:=suma(m-1) + 1/m;
end;
write('n='); read(n);
writeln('suma 18+ 1/3 + 1/4 + 1/5 + ... + 1/n = ', suma(n));
end.
