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

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

Условие отбора: if ((a[i] mod 2)lt;gt;0) and ((a[i] mod 10)gt;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)lt;gt;0) and ((a[i] mod 10)gt;1) then writeln(a[i], - нечетное, не оканчивается на 1)

else writeln(a[i]);

end;

end.