Вводятся произвольные натуральные числа в количестве n . Вывести ('Да') если все числа являются четырехзначным и при этом начинаются с нечетных чисел

Нет, я только Pascal и C++ шарю

Спасибо

На питоне решение вот

var a, b, c :integer; g :string;beging:=('Нет');readln(b);for a:=1 to b dobeginreadln(c);if (c>999) and (c mod 2<>0) and (c<10000) theng:=('Да');end;writeln(g);end.