program proverka;
var a:integer;
begin
write ('Введите оценку: ');
readln (a);
if (a=3) or (a=4) or (a=5) then writeln ('экзамен сдан')
else if (a=2) then write('не сдан')
else write('нет такой оценки');
readln
end.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Введите оценку от 2 до 5:');
  case n of
  3..5:Writeln('Экзамен сдан');
  2:Writeln('Экзамен не сдан');
  else Writeln('Нет такой оценки')
  end
end.