program abcvisszamindenmasodik; var i:char; p:boolean; begin p:=false; for i:='z' downto 'a' do begin if p then write(i:3); p:=not(p); end; readln end.