Ответ:
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.