Как не дать выполниться следующему условию? - Pascal ABC

Формулировка задачи:

Как сделать что бы при выполнении этого условия (if (c>b) and (a>c) then write('signal') else write('net signala'), он не выводил на экран следующие и наоборот?

var
a,b,c:integer;
begin
writeln('abc');
readln(a,b,c);
if (c>b) and (a>c) then write('signal') else write('net signala');
if (c>a) and (c<b) then write('net signala2') else write('signal2');
end.

Решение задачи: «Как не дать выполниться следующему условию?»

Листинг программы

var
  a, b, c: integer;
begin
  writeln('abc');
  readln(a, b, c);
  if (c > b) and (a > c) then 
    write('signal') else write('net signala'); exit;
  if (c > a) and (c < b) then write('net signala2') else write('signal2'); exit;
end.

Объяснение кода листинга программы

В данном коде используются три переменные: a, b и c, которые имеют целочисленный тип данных.

Строка 'abc' выводится на экран без использования переменных.
Затем с помощью функции readln считываются значения переменных a, b и c. Значения считываются в переменные a, b и c соответственно.
Далее проверяется условие: если значение переменной c больше значения переменной b, и если значение переменной a больше значения переменной c, то выводится строка 'signal'. Если же условие не выполняется, то выводится строка 'net signala'.
Если значение переменной c больше значения переменной a, и значение переменной c меньше значения переменной b, то выводится строка 'net signala2'. В противном случае выводится строка 'signal2'.
После выполнения всех условий программа завершается командой exit.