Дан массив из 100 натуральных чисел. Вывести на экран четные числа

Const n=100;

var a:array[1 ... n] of integer;

i:integer;

begin

Randomize;

for i:=1 to n do

begin

a[i]:=random (100) ;

write (a[i]:4) ;

end;

writeln;

writeln ('Четные числа:') ;

for i:=1 to n do

if a[i] mod 2 = 0 then write (a[i]:4) ;

writeln;

end.

Пример (для n=10) :

80 90 8 37 95 34 42 33 51 33

Четные числа:

80 90 8 34 42