CHƠNG TRÌNH CÓ THỂ NH SAU

Uses CRT;

Var A, sum: real;

i: integer;

Begin

Write('cho so A: '); readln(A);

i:=1; sum:= 0;

While (sum<=A) do

sum:= sum+1/i;

i:= i+1;

end;

Write('Gia tri N bang ', i:6);

Readln;

End.