Дано вещественное число а. напечатать все значения n ,при которых 1+(1/2)+(1/3)+..+(1/n)

Program fofgogjoj;
var 
n:integer;
a,s:real;
begin
repeat
Writeln('Введите вещественное число  a');
Read(a);
until a>1;
s:=0;
n:=1;
while s<a-1/n do 
begin 
s:=s+1/n; 
Write(n:4); 
n:=n+1; 
end;
Writeln;
Writeln('s=',s:0:4);
end.

Не советую печатать число большее 10 xD