Даны 10 чисел найти их произведение. Составить программу (на паскале)

program qq;

const n = 10;

var ms:array[1..n] of integer;

   i,mn:integer;

begin

 mn:=1;

 for i:= 1 to n do begin

   write('введите ', i, ' число ');

   readln(ms[i])

 end;

 for i:= 1 to n do

   mn:=ms[i] * mn;

writeln('множество ',mn)

end.

Объяснение:

n это кол-во чисел, которые нужно перемножить