Tính tổng ...+1/n+...

PROGRAM CT43;
USES crt;
VAR i,n: BYTE;
T,p: REAL;
BEGIN
Writeln('Tinh tong T=....+1/n+...');
Writeln;
Write('Nhap n = : '); Readln(n);
T:=0; p:=1;
FOR i:=1 TO n DO
BEGIN
T:=T+1/p; p:=p+1;
END;
Writeln('T= ',T:6:2);
Readln
END.

Download: http://www.mediafire.com/?xuam7h92cj19hy7