program first;
uses wincrt;
var A,B:array [1..5] of integer;
i,n:integer;
begin
for i:= 1 to 5 do
begin
write ('A[',i,']=');
readln(A[i]);
if (A[i] mod 2)=1 then write ('׸òíûõ çíà÷åíèé íåò ')
else
begin
B[i]:=A[i];
write (B[i],' ');
end;
end;
end.