Вопрос по информатике:

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

Программа позволяет ввести 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.