Дан массив из n чисел. Найти произведение тех чисел, которые имеют последние цифры 1 и 5,иначе посчитать количество. Помогите пожалуйста!

var a: array [1..1000] of integer; i, n, k: integer; m: longint; begin      read(n);      for i := 1 to n do          read(a[i]);      m := 1;      k := 0;      for i := 1 to n do      if (a[i] mod 10 = 1) or (a[i] mod 10 = 5)      then          m := m * a[i]      else          k := k + 1; {Я понял задание так: если числа не оканчиваются на 1 или 5, то подсчитать их количество}      writeln('Multiplication: ', m);      writeln('Other numbers: ', k); end.