Question

[Gia Thịnh]

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 ạ.