uses crt;
var n,s,t,t2:integer;
i:byte;
begin
clrscr;
{Bai 1}
s:=1;
write('Nhap n '); readln(n);
for i:=1 to n do
s:=s*i;
write('tich cua ',n,' so nguyen dau la: ',s);
writeln;
{bai 2}
t2:=0;
for i:=1 to n do
t2:=t2+sqr(i);
write('Tong binh phuong ',n,' so nguyen dau la: ',t2);
writeln;
{Bai 3}
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
write('Tong ',n,' so nguyen chan dau la ',t);
readln;
end.
