Viết chương trình pascal

Viết chương trình pascal tính S, với N được nhập từ bàn phím.
S = 1/N + 2/(N-1) + 3/(N-2)+ ...+N

gợi ý:

-  xét phần tuso (tử số) ta thấy tăng lần lượt 1, 2, 3, ..., n

- xét phần mauso (mẫu số) ta thấy giảm lần lượt n, n-1, n-2, ...,1

* Xét vòng lặp khi tuso tăng dần từ 1 đến n:

  khi   tuso=1, mauso= n = n – tuso + 1 = n -1 +1 = n

         tuso=2 , mauso=n-1 = n – tuso + 1 = n – 2 + 1 = n - 1

         ...

         tuso=n , mauso = n-tuso+1 = n-n+1=1;

=>  khi tuso = i , mauso = n-tuso+1 = n - i +1;