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

var x: array[1 ... 1000] of integer;

x1: array[1 ... 1000] of integer;

n, i, j: integer;

begin

writeln ('Введите количество элементов в последовательности');

readln (n);

if n > 1000 then writeln ('Количество элементов больше 1000!') else

begin

for i : = 1 to n do x[i] = random (30000);

for i : = 1 to n do if x[i] div 4 = 0 then begin

j : = j + 1;

x1[i] : = x[i];

end;

for i: = 1 to j do writeln (x1[i]:4);

end;

end.