Дан целочисленный массив a(n). найти наибольшее из нечетных и количество четных чисел, входящих в последовательность a[n], a[n]+1.

Program gt;
var n,i,max,l:integer;
a:array[1..100]of integer;
begin
read(n);
max:=0;l:=0;
for i:=1 to n+1 do
begin
read(a[i]);
if(abs(a[i]) mod 2=0)then l:=l+1;
if((abs(a[i])mod 2=1)and(a[i]>max))or(max mod 2=0)then max:=a[i];
end;
writeln(max);
writeln(l);
end.