Решение задачи №9 из главы 9

Решение задачи №9 из главы 9

Есть программа, где пользователь вводит число 1 или число 5:

var m,s:integer;
  f:boolean;
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 m,s:integer;
  f:boolean;
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;
if (s = 1) then
   writeln('soobchenie 1')
else if (s = 5) then
   writeln('soobchenie 2');
readln();