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

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

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