Program Vetveni3;
Var
   Znamka : Integer;
Begin
     Write('Zadej znamku ');
     ReadLn(Znamka);
     Case Znamka of
          1 : WriteLn(Znamka, ' = vyborny');
          2 : WriteLn(Znamka, ' = chvalitebny');
          3 : WriteLn(Znamka, ' = dobry');
          4 : WriteLn(Znamka, ' = dostatecny');
          5 : WriteLn(Znamka, ' = nedostatecny');
     Else
          WriteLn(Znamka, ' = neni');
     End;
     ReadLn;
End.