Объяснение:
var
s:array[1..10000] of longint;
a,b,i,k,max:longint;
begin
read(a);
for i:=1 to a do
begin
read(s[i]);
end;
max:=s[1];
for i:=1 to a do
if (s[i] mod 2 = 1) and (s[i] mod 10000 <> 6) and (s[i] div 10 mod 1000 <> 6) and (s[i] div 100 mod 100 <>0) and (s[i] div 1000 mod 10) and (s[i] div 10000 <>6) then
begin
max:=s[i];
inc(k);
end;
end;
if (k=0) then write(0) else write(max);
end.
