Ch : Character;
Available : Boolean;

Ada.Text_IO.Get_Immediate (Ch, Available);