Урок №9 Задача 11

Урок №9 Задача 11

Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:
но сейчас код написан неоптимально и при каждом запуске выполняется 2 сравнения, при этом код можно переписать так, что при вводе одного из двух значений, которые приводят к выводу сообщения, сравнение будет выполняться только один раз.
Перепишите программу оптимальным образом.

program Pr9_11;

var s:integer;

begin
  writeln('Введите число 1 или 5');
  readln(s);
  if (s = 1) then writeln('Сообщение: 1')
  else if (s = 5) then writeln('Сообщение: 2');

  readln();

end.                  

Консоль:

Введите число 1 или 5
1
Сообщение: 1