Ответ:

Program p1;

Var a, i, n, k,x,z: integer;

Begin

Write('Введите количество чисел последовательности: ');

readln(n);

k:=0;

For i:=1 to n do begin

readln (a);

x := a mod 10;

z:= (a div 10) mod 10;

if (z mod 2 = 0) and (x mod 2 = 1) then k:=k+1

end;

if k > 0 then

Writeln('Количество чисел у которых цифра десятков которых чётная, а цифра единиц - нечётная - ',k)

else

 writeln('Таких чисел нет')

End.