Определить четные числа в массиве в программе pascalabc и все это вывести на экран.

Var

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

i:integer;

begin

for i:=1 to 10 do

begin

a[i]:=random(101);

if a[i] mod 2 = 0 then

writeln('a[', i, ']=',a[i]);

end;

end.