uses crt;
var n:longint;
function giaithua(a:longint):longint;
begin
If a=1 then giaithua:=1 // Neu a=1 thi ket thuc
else giaithua:=a*giaithua(a-1); // khong thi giai thua bang a x giai thua (a-1);
end;
begin
clrscr;
write('n=');readln(n); // nhap n
writeln(giaithua(n)); // xuat giai thua cua n
readln
end.