program ct;
uses crt;
var i,n,S,T:integer; tbc:real;
begin
clrscr;
write('nhap n:=');readln(n);
S:=0; T:=1;
for i:=1 to n do
begin
S:=S+i;
tbc:=S/n;
T:=T*i;
end;
writeln('tong la:',S);
writeln('trung binh cong la:',tbc);
writeln('tich la:',T);
readln
end.