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

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

Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:
var s:integer;

begin
  writeln('Vvedite chislo 1 ili 5');
  readln(s);
  if (s = 1) then
    writeln('soobchenie 1');
  if (s = 5) then
    writeln('soobchenie 2');
 
  readln();
end;  

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

Перепишите программу оптимальным образом.

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

Вывод консоли:

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

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

Введите число 1 или 5: 3