Рассмотреть данную задачу с использованием оператора условного перехода : IF условие THEN действие

var o: longint;

begin

Readln(o);

if o = 5 then Writeln('Отлично')

else

if o = 4 then Writeln('Хорошо')

else

if o = 2 then Writeln('Неудовлетворительно')

else

Writeln('Ошибка');

end.