Tính tổng dãy

a) Lập trình tìm số tự nhiên n nhỏ nhất sao cho S(n) >A, A nhập từ bàn phím:
       S(n) = 1 + (1 / 2) + (1 / 3) + … + (1 / n)
 b) Cho n là số tự nhiên nhập từ bàn phím. Lập trình tính tổng dãy:
       1-2+3-4+ …. +(-1) n+1 n
                                                                 Giải
Program B118Tinhtong;
Uses Crt;
Var
       n:Integer;
       A,Sn:Real;
BEGIN
       ClrScr;
       Write('Nhap A = '); ReadLn(A);
       n:=1; Sn:=1;
       While Sn<=A do
           Begin
               n:=n+1;
               Sn:=Sn+1/n;
           End;
       Write( 'So tu nhien ',n,' la nho nhat thoa man S(',n,') = ',sn:5:1,' > ',A:5:1);
       ReadLn;
End.