:Написать программу на Паскале В переменной Х Ваша оценка. Вывести,

var x:byte;

BEGIN

readln(x);

case x of

2:writeln('Очень плохо.');

3:writeln('Удовлетворительно.');

4:writeln('Превосходно.');

5:writeln('Отлично.');

end;

end.

Program n_1;

var x:integer;

begin

   read(x);

   case x of

       1,2 : writeln('Очень плохо');

       3: writeln('Удовлетворительно');

       4: writeln('Превосходно');

       5: writeln('Отлично');

   else writeln('Ошибка');

   end

end.