uses crt;
var i,n,x,s:integer;
begin
clrscr;
readln(n);
s:=1;
for i:=1 to n do
begin
readln(x);
s:=s*x;
end;
writeln(s);
readln;
end.
uses crt;
var n,i:integer;
s:longint;
begin
clrscr;
writeln('nhap n:');readln(n);
for i:=1 to n do s:=s*i;
write('tich cua ',n,'so tu nhien dau tien la:',s);
readln;
end.
uses crt;
var n,i:integer;
s:longint;
begin
clrscr;
writeln('nhap n:');readln(n);
s:=1;
for i:=1 to n do s:=s*i;
write('tich cua ',n,'so tu nhien dau tien la:',s);
readln;
end.