Дано действительное число А. Найти среди чисел 1, 1+1/2, 1+1/2+1/3, ...

[svobodys]

Не могу разобраться с задачей. Тк. паскаль пока на очень примитивном уровне.

Формулировка:
Дано действительное число А. Найти среди чисел 1, 1+1/2, 1+1/2+1/3, ....
первое, большее А.


Код:


uses crt;

var
A:real;
i:integer;
r:real;
function fun(j : integer; a : real):real;
var r : real;i:integer;
begin
r := 0;
for i:=1 to j do
r := r+ 1/i;
if r < A then r := fun(j+1,a);
fun := r;
end;
begin
clrscr;
Write('A = ');Readln(A);
Writeln('Fun = ',fun(1,a):10:5);
Readkey;
end.

написали задачу. а понять не могу, объясните пож.