Конвертация пятибальной шкалы Pascal(Паскаль)

program RatingToText;
var
  rate : integer;
begin
  write('Введите оценку 1-5 ');
  readln(rate);

  if (rate = 1) or (rate = 2) then
    writeln('Неудовлетворительно');
  if rate = 3 then
    writeln('Удовлетворительно');
  if rate = 4 then
    writeln('Хорошо');
  if rate = 5 then
    writeln('Отлично');

  readln;
end.  

program RateToText;
var
  rating : integer;
begin
  write('Введите оценку 1-5 ');
  readln(rating);

  case(rating) of
    1,2: writeln('Неудовлетворительно');
    3: writeln('Удовлетворительно');
    4: writeln('Хорошо');
    5: writeln('Отлично');
  end;

  readln;
end.