program pr3;
var
x : integer;
begin
writeln('Введите оценку');
readln(x);
case x of
1 : writeln('Плохо');
2 : writeln('Неудовлетворительно');
3 : writeln('Удовлетворительно');
4 : writeln('Хорошо');
5 : writeln('Отлично');
else writeln('Ошибка');
end;
end.
точки в 3 и 6 строках это как минимум странно.
оператор выбора case должен завершаться end;
ну и отсутствие форматирования кода это плохо.