Дана последовательность естественных чисел a1,a2,...,an. Сделать массив из четных чисел этой

const

 maxsize = 100;

var

 i, n, temp: integer;

 a: array[1..maxsize] of integer;

begin

 i := 1;

 write('Введите количество частей последовательности: ');

 read(n);

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

 while (n gt; 0) do begin

   read(temp);

   if temp mod 2 = 0 then begin

     a[i] := temp;

     i := i + 1;

   end;

   n := n - 1;

 end;

 n := i - 1;

 if n = 0 then  

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

 else begin

   writeln('Массив из чётных частей последовательности:');

   for i := 1 to n do

     write(a[i]:4);

 end

end.