Найдите произведение десяти элементов массива. А (10) целых

program HelloWorld;varmas : array [1..10] of integer;i, mult : integer;begin mult:=1; for i:=1 to 10 do begin read(mas[i]); mult:= mult * mas[i]; end; writeln('Произведение элементов массива - ',mult);end.