Program case_of;
 Var a:integer;
  begin
   WriteLn('Ââåäèòå íîìåð íîòû');
   ReadLn(a);
   case a of
   1: WriteLn('íîòà äî');
   2: WriteLn('íîòà ðå');
   3: WriteLn('íîòà ìè');
   4: WriteLn('íîòà ôà');
   5: WriteLn('íîòà ñîëü');
   6: WriteLn('íîòà ëÿ');
   7: WriteLn('íîòà ñè');
   else WriteLn('ÍÅÒ ÒÀÊÎÉ ÍÎÒÛ!!!')
   end;
   end.