//PascalABC.NET 3.2, старой версии нет, не могу проверить
begin
var a: BigInteger := 1;
for var i := 1 to ReadInteger do
a *= i;
write(a)
end.
К специальным клавишам относятся Esc, Enter, Tab
Интересно, какой умный человек придумал эту задачу...
Может покрасить ее, а она перетечет в другой кран и сообщит например что все хорошо)