program A00;
uses crt;
var S :Real;
a :Real;
N: Integer;
begin
writeln('nhap a');
readln(a);
S:=(1/a);
N:=1;
while not (1/(a+N)>100) do
begin
N:= N+1;
S:= S+1/(a+N);
end;
writeln('S là: ', S:8:4);
readln;
end.
Giúp mình tìm lỗi sai không xuất được S ạ.
