Напишите программу в паскале, которая в последовательности натуральных чисел определяет максимальное число, кратное 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.