это в Pascal помогите срочно надо

Ответы и объяснения

2014-03-23T10:52:43+04:00
Var i,p,n:integer;
begin
p:=1;
readln(n);
for i:=1 to n do
p*=i;
writeln(p);
end.