Напишите программу, которая в последовательности целых чисел определяет максимальное отрицательное число, не оканчивающиеся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется отрицательное число, не оканчивающееся на 4. Количество чисел не превышает 1000. Введенные числа не превышают 30000.
Программа должна вывести одно число – максимальное отрицательное число, не оканчивающиеся на 4.

• var N, A, i, max: integer;
• readln\(N\); {Перед вводом количества чисел, инициализируйте переменную max}
• max := -30001;
• for i := 1 to N do begin
• if \(A mod 10 \\lt \\gt \-4\) and \(A \\lt 0\) and \(A \\gt max\) then max:=A;
• end;
• write\(max\);
• end.
• begin
• readln\(A\);