program case_  ;

 uses crt;

 type Coms=(hi,go);

 var a:Coms;
     b:byte;


BEGIN

 clrscr;

  readln(); { Как ввести строку на проверку }

{  
 readln(b);

case b of

  1: writeln('Welcome');

  2: writeln('Look out');

  3: writeln('he-he');

  4: writeln('Bye');


  else
        writeln('Not here');
  end;

}

   case a of

   hi: writeln('Welcome');

   go: writeln('Look out');
   else
   writeln('Error');

   end;

 readln;

END.