помогите решить пример, программа не нужна

Что такое "усные числа"?
А вообще перебирать с конца до первого нечетного числа.
Хотя можно и проще - с начала и запомнить номер последнего.
var a,i,k:integer;
begin
write('n ? '); readln(n); write('numbers? ');
for i:=1 to n do begin readln(a); if odd(a) then k:=i end;
writeln(k); readln
end.