Program n_multiplier;
var i,n,s:integer;
begin
s:=1;
writeln('Введите значение n:');
readln(n);
for i:=1 to n do
s:=s*i;
writeln('Произведение всех чисел от 1 до ', n, ' = ', s);
end.
