var
 mas:array[1..1000]of real;
 new_mas:array[1..1000]of real;
 i, j, z:integer;
function RESULT(a:real):boolean;
begin
while frac(a)>0 do begin
a:=a*10;
end;
if trunc(a) mod 10 = 5 then RESULT:=true else RESULT:=false;
end;

begin
read(i);

for j:=1 to i do begin
     read(mas[j]);
end;

z:=1;
for j:=1 to i do begin
    if RESULT(mas[j])=true then begin
       new_mas[z]:=mas[j];
       z:=z+1;
    end;
end;

writeln;
for j:=1 to z-1 do begin
 write(new_mas[j]:5:3,' ');
end;
end.