Program Vetveni1;
Var
   Znamka : Integer;
Begin
     Write('Zadej znamku ');
     ReadLn(Znamka);
     If Znamka = 1 Then WriteLn(Znamka, ' = vyborny');
     If Znamka = 2 Then WriteLn(Znamka, ' = chvalitebny');
     If Znamka = 3 Then WriteLn(Znamka, ' = dobry');
     If Znamka = 4 Then WriteLn(Znamka, ' = dostatecny');
     If Znamka = 5 Then WriteLn(Znamka, ' = nedostatecny');
     {program pocita pouze 1, 2, 3, 4, 5}
     ReadLn;
End.