Найти сумму ряда 1+1/2+1/3++1/50(for) выходные данные : вывести сумму ряда.

Я надеюсь вы в 5 классе ... 
var  i: integer; 
sum:real;
begin
sum:=0; 
for i:=1 to 50 do     
sum:=sum+1/i;
writeln(sum);
end.