Напишите программу в среде Pascal ABC,которая в последовательности чисел от 5 до 30 находит произведение чётных.

Program fofgogjoj;
Var
a: array [1..100] of integer;   
i, n, p: integer;
Begin 
p:=1;
n:=30; 
for i:=5 to n do   
begin   
a[i]:=i;           
if i mod 2=0 then
p:=p*a[i];   
end; 
Writeln (Произведение элементов массива с четными числами равно: ,p);
End.