program BiBo212;
uses crt;
var n :integer; S,ep :real;
begin
clrscr;
n:=1;
S:=0;
write('Nhap so Ep(VD:0.0001): ');readln(ep);
while 1/n >=ep do
begin;
S:=S+1/n;
n:=n+1;
write(n:5);
end;
writeln('S la: ',S:2:6);
write('n la: ',n);
readln;
end.
P/S:Bạn chạy trên Turbo Pascal nhá chứ trên Pascal nó bị lỗi dữ liệu.