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

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 ( a