viết chương trình và in tính tổng s=1+1/2+1/3+1/4+...+1/n với n là số bất kì

Uses crt;

Var i, n: integer; tong:real;

Begin

       clrscr;

Write('Nhap n = ' ); readln(n);

tong:=0;

For i:=1 to n do

tong:=tong+1/i;

Writeln('Tong la: ',tong:0:2);

readln

end.