program project1; var ocenka:integer; begin Write('Vyvedete ocenka'); Readln(ocenka); case (ocenka) of 2 : Writeln('Slab 2'); 3 : Writeln ('Sreden 3'); 4 : Writeln ('Dobyr 4'); 5: Writeln ('Mnogo dobyr 5'); 6: Writeln ('Otlichen 6'); else Writeln ('Nevalidna ocenka'); end; Readln; end.