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

Program n_15;
var x:real;
begin
writeLN('Введите оценку');
readLN(x);
If x=2 then writeLN('очень плохо');
If x=3 then writeLN('Удовлетворительно');
If x=4 then writeLN('Хорошо');
If x=5 then writeLN('Отлично');
If xlt;2 or xgt;5 then writeLN('Нет отметки');
writeLN('Ваша отметка- ',x);
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.