Вася очень любил играть в карты. Однажды он решил написать программку,

Запишем решение программки на языке Pascal ABC
program z1;
var
n,i:longint;
k:comp;
begin
assign(input,input.txt);
reset(input);
assign(output,output.txt);
rewrite(output);
read(n);
k:=1;
for i:=1 to n do
k:=k*i;
writeln(k:0:0);
close(input);
close(output);
end.