Задание 11 Урок 9

Задание 11 Урок 9

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

var s: integer;
  begin
    writeln ('vvedite chislo 1 ili 5');
    readln (s);
    if (s=1) then
    writeln ('soobcheni 1')
    else
      writeln ('soobchenie 2');

    readln;     readln;
    end.    

Консоль:

vvedite chislo 1 ili 5
5
soobchenie 2