for i:= 1 to n do
begin
  if ( a[i] >= z ) AND ( a[i] <= x ) then writeln(a[i]:4);