Program z; var a:integer; begin writeln ('введите отметку'); read (a); case a of 2: writeln ('неудовлетворительно'); 3: writeln ('удовлетворительно'); 4: writeln ('хорошо'); 5: writeln ('отлично'); end; end.