//Необходимо определить количество пар, для которых произведение элементов делится без остатка на 10.

var k, i, j, N : integer;
a : array[1..1001] of integer;

begin
readln(N);
for i:=1 to N do
    readln(a[i]);
k := 0;
for i:=1 to N - 1 do
    for j := i + 1 to N do
        if (a[i] * a[j] mod 10 = 0) then inc(k);
writeln(k);

end.