Hãy viết chương trình tìm giá trị của N thỏa mãn biểu thức sau: 1+ 1/2+1/3+…+1/N >a Biết a được nhập từ bàn phím. Giúp mình với

uses crt;
var n,a:longint; s:real;
begin
clrscr;
   write(‘a=’);readln(a);
   while s<=a do
     begin
        inc(n);
        s:=s+1/n;
     end;
   writeln(‘n= ‘,n);
readln
end.