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

Урок 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
    writeln('Vvedite chislo 1 ili 5');
    readln(s);
    if (s = 1) then
       writeln('soobchenie 1')
    else if (s = 5) then
        writeln('soobchenie 2');

    readln();
end.

КОНСОЛЬ

Vvedite chislo 1 ili 5
1
soobchenie 1