Question

3 задание...хэлп ми плиз

Answer 1

var n,p,i: integer;
begin
p:=1;
writeln('введите n');
readln(n);
for i:=1 to n do
begin
p:=p*i;
end;
writeln(p);
end.