С клавиатуры вводится восемь двухзначных целых чисел. Если число кратно 5, то найти произведение цифр, из которых оно состоит. Результат вывести на экран — Pascal(Паскаль)

program aaa;
var a:array[1..8] of integer;
i,j:integer;
BEGIN
for i=1 to 8 do
begin
read(a[i]);
end;
 
for i=1 to 8 do
begin
if ((a[i] mod 5)=0) then
begin
j=(a[i] mod 10) * (a[i] div 10);
Write(j);
end;
end;
end.