Question

помогите пожалуйста 8 класс информатика​

Answer 1

program Sanya2263;

var i,n,p: integer;

begin

Read(n);

p:=1;

For i:= 1 to n do

p:=p*i;

Write(p);

end.