На языке программирования pascal нужно написать код , которому пользователь вводит число n и затем n чисел и программа должна посчитать произведение этих чисел.

program raf105;

var n,i,pro: integer;

begin

write('N = ');

readln(n);

pro:= 1;

for i:=1 to n do

begin

 write(i,' ');

 pro:= pro * i;

end;

writeln;

writeln('Произведение: ',pro);

end.