program z1;
var m,n,i,a: integer;
begin
writeln('Введите количество чисел в последовательности');
write ('n = ');
readln (n);
m:=101;
for i := 1 to n do
begin
write ('Введите число: ');
readln (a);
if (a>=100) and (a<=999) and (a mod 2 <> 0) and (a>m) then m:=a
end;
writeln ('Наибольшее нечётное трехзначное число ',m)
end.
