uses crt;
var
int n,fact,i;
begin
clrscr;
writeLn("Enter size array:");
read(n);
if (n>1)
for i:= 1 to n do
fact:=fact*i;
else
fact:=1;
writeln;
write("Fact=",fact);
readkey;
end.
