Составьте программу в паскале abs. найти произведение всех числе от 1 до n​

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.