Заполнить массив размером 10 элементов целыми числами ,вводимыми с клавиатуры . вывести на экран элементы массива и из произведения

Const  n = 10;
var  a :array [1..n] of integer;  i, p :integer;
begin
  for i:= 1 to n do    readln(a[i]);  for i:= 1 to n do    write(a[i],' ');  writeln;  p:= 1;  for i:= 1 to n do    p:= p * a[i];  writeln(p);
end.