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

http://fkn.ktu10.com/?q=node/8539

Есть программа, где стоит проверка на ввод пользователем числа 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 сравнения, при этом код можно переписать так, что при вводе одного из двух значений, которые приводят к выводу сообщения, сравнение будет выполняться только один раз.

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

Подсказка: если самостоятельно разобраться не получается, смотрите этот видео-разбор(link is external).

program z9;
var a: integer;
begin
writeln ('vvedite chislo 1 ili 5');
readln (a);
if (a=1) then
writeln('soobchenie 1')
else
writeln('soobchenie 2');
readln();
end.