program MultiplyNumbers;

var
n, i, product: integer;

begin
write('Enter a positive integer: ');
readln(n);

product := 1;

for i := 1 to n do
begin
product := product * i;
end;

writeln('The product of numbers from 1 to ', n, ' is: ', product);
end.