Напишите программу которая в последовательности натуральных чисел определяет есть ли в последовательности нечётные числа не оканчивающиеся на 1

Программа позволяет ввести 10 натуральных чисел в одномерный массив. Те элементы, которые не являются четными и не оканчиваются на 1, при выводе отмечаются комментарием.

Условие отбора: if ((a[i] mod 2) 0) and ((a[i] mod 10) >1) - истина, если остаток от деления на 2 не равен нулю, и, одновременно, если остаток от деления на 10 больше 1.

program posl;

var a: array [1 ... 10] of integer;

begin

for i:integer:=1 to 10 do readln (a[i]);

writeln ('Результат'); 5

for i:integer:=1 to 10 do

begin

if ((a[i] mod 2) 0) and ((a[i] mod 10) >1) then writeln (a[i],' - нечетное, не оканчивается на 1')

else writeln (a[i]);

end;

end.