H ! -факториал 1×2×3×4....h надо решить этот циклический алгоритм

Question

H ! -факториал
1×2×3×4....h
надо решить этот циклический алгоритм

Answer 1

Var i, h, res: integer;
begin
write('H = ');
readln(h);
res:=1;
for i:=1 to h do
res:=res*i;
writeln(h, '! = ', res);
end.