Дан массив А (5), подсчитать количество элементов кратных 5 и оканчивающихся на ноль.

Var a: array[1 ... 5] of Integer;

rand, count, i: Integer;

begin

for i:=1 to 5 do

begin

a[i]:=Random (100);

writeln (a[i]);

if (a[i] mod 5=0) and (a[i] mod 10=0) then Inc (count);

end;

writeln ('Кол-во: ', count);

end.