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.