Напишите программу,которая в последовательности

Question

Напишите программу,которая в последовательности

---

Answer 1

Program n1;
var i,max,n,a: integer;
begin
max:=30000;
readln(n);
for i:=1 to n do
begin
readln(a);
if (a < 0) and (a mod 10<>4) and ( aend;
writeln(max);
end.