program tinhtong;
uses crt;
var i, n : integer; S : real;
begin
clrscr;
writeln['Nhap so thu n: ']; readln[n];
S:=0; i:=1;
while i
program tinhtong;
uses crt;
var i, n : integer; S : real;
begin
clrscr;
writeln['Nhap so thu n: ']; readln[n];
S:=0; i:=1;
while i