S= 1+1/2+1/3+...+1/N nên N>=1 và n là số nguyên dương. Do vậy S >=1. Vậy nếu nhập A<1 thì sẽ không tồn tại giá trị N ngược lại bạn viết chương trình như sau:
var s,a:real;
begin
readln(a);
s:=1;
n:=1;
while s <= a do
begin
n:=n+1;
s:=s+1/n;
end;
writeln('So n nho nhat de ',s,' < ',a,' la:',n);
readln;
end.