1) Напишите программу которая в последствии натуральных чисел определяет, есть ли в последовательности нечетные числа не оканчивающихся на 1.
Вход: программа получает на выход кол-во чисел, а затем сами числа. Кол-во чисел не превышает 1000, а сами числа не превышают 30000.
Выход: программа должна вывести YES, если в последовательности есть хотя бы одно нечетное число не оканчивающиеся на 1 и NO в противном случае.

2) Напишите программу, которая в последовательности натуральных чисел находимо кол-во нечетных чисел кратных 3.
Вход: программа получает на выход кол-во чисел, а затем сами числа. Кол-во чисел не превышает 1000, а сами числа не превышают 30000.
Выход:Программа должна вывести одно число-кол-во нечётных чисел кратных 3.

1.vara,k,i,c: integer;beginc:=0;write('Введите количество чисел в последовательности: ');readln(k);for i := 1 to k dobeginwrite('Введите число: ');readln(a);if (a mod 2 = 1) and (a mod 10 <> 1) then c:=c+1end;if c>0 then writeln('YES')else writeln('NO')end.2.vara,k,i,c: integer;beginc:=0;write('Введите количество чисел в последовательности: ');readln(k);for i := 1 to k dobeginwrite('Введите число: ');readln(a);if (a mod 2 = 1) and (a mod 3 = 0) then c:=c+1end;writeln(c)end.