program MultiplyOfFour;

var
A: array[1..100] of Integer;
i, product: Integer;

begin
product := 1;

for i := 1 to 100 do
begin
A[i] := (i + 5) * (i + 5);

if A[i] mod 4 = 0 then
begin
product := product * A[i];
end;

end;

writeln('The product of numbers divisible by 4 is: ', product);

end.