Найдите произведение элементов одномерного массива из 7 элементов значение которых вводится через клавиатуру и является целым.

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