Ребят помогите пожалуйста с задачей в паскале.

[Леночка 974]

Дан целочисленный массив из 40 элементов. Элементы массива могут
принимать целые значения от 0 до 10 000 включительно. Опишите на
естественном языке или на одном из языков программирования алгоритм,
позволяющий найти и вывести количество пар элементов массива, в которых
десятичная запись хотя бы одного числа оканчивается на 2. В данной задаче
под парой подразумевается два подряд идущих элемента массива.
Например, для массива из пяти элементов: 16 3 142 55 22 – ответ: 3.

[Аватар]

var xArray: array[1..40] of Integer; // это твой массив, заполни его числами
    i,xCount: Integer;
...
  xCount:=0; //счетчик
  for i:=1 to 39 do if not Odd(xArray[i]) or not Odd(xArray[i+1]) then Inc(xCount); //здесь считаем
  for i:=1 to 39 do if not (Odd(xArray[i]) and Odd(xArray[i+1])) then Inc(xCount); //или так
  for i:=1 to 39 do if (xArray[i] mod 2 = 0) or (xArray[i+1] mod 2 = 0) then Inc(xCount);  //или так 
  for i:=1 to 39 do Inc(xCount,Integer((xArray[i] mod 2 = 0) or (xArray[i+1] mod 2 = 0))); //можно и так  и еще 1000 и 1 способом

фу-ты-ну-ты, четные считал, нужно же оканчивающиеся на 2, тогда так

  for i:=1 to 39 do if (xArray[i] mod 10 = 2) or (xArray[i+1] mod 10 = 2) then Inc(xCount);