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.

program oken;
uses crt;
var s,ep: real;
    i: longint;
begin
    clrscr;
    ep:= 0.000001; s:=0; i:=1;
    while (1/i>ep) do
        begin
            s:=s+1/i;
            i:=i+1;
        end;
    writeln('So can tim: ',i);
    readln;
end.