Помогите поправить эту программуprogram pr3;var x:integer;begin.writeln(039;Введите

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;

ну и отсутствие форматирования кода это плохо.