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

Uses crt;
const n=10;
var b:array[1..n] of integer;
i,pr:integer;
begin
pr:=1;
for i:=1 to n do
begin
readln(b[i]);
pr:=pr*b[i];
end;
writeln(pr);
end.