program stroka;
Uses crt;
var A:array[1..10] of char;
    i, j, k, n: integer;
BEGIN
    writeln ('vvedite koli4estvo elementov'); readln (n);
   if ((1>n) or (n>10)) then
   begin writeln ('OSHIBKA'); readln; halt; end;
    For i := 1 to N do
   begin Write('A[' , i , ']= ');
    ReadLn(A[i]);
   end;

    For i := 1 to N do
    begin
     if A[i] mod 2 = 0 then Writeln(a[i]);
    end

readkey;
clrscr;
end.