Дан массив целых чисел.найти номер первого чётного элемента массива(массив просматривайте с конца,используя цикл for..downto).если чётных элементов нет,то должно быть напечатано соответствующее сообщение.

Program gt;
var a:array[1..100]of longint;
l,q,i,n:longint;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
end;
for i:=n downto 1 do
begin
if(a[i]mod 2=0)then l:=i;
end;
write(l);
end.