Program E9;
var p, i, n: integer;
begin
write (введите целое n = );
readln (n);
p: = 1;
for i: = 1 to n do
p: = p * i;
write (n, ! = ,p);
readln
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.