Var n: byte; begin write('Введите оценку: '); readln(n); if n = 1 then writeln('Плохо'); if n = 2 then writeln('Неудовлетворительно'); if n = 3 then writeln('Удовлетворительно'); if n = 4 then writeln('Хорошо'); if n = 5 then writeln('Отлично'); end.
begin
write('Введите оценку: '); readln(n);
if n = 1 then writeln('Плохо');
if n = 2 then writeln('Неудовлетворительно');
if n = 3 then writeln('Удовлетворительно');
if n = 4 then writeln('Хорошо');
if n = 5 then writeln('Отлично');
end.