Задача 3 урок 9

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
ПРИМЕЧАНИЕ: эта следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).

program task3_lesson9;
var
  a,b,c:integer;
begin
  writeln('Enter three integers a,b,c, "a" must be betwee "b" and "c"  :');
  readln(a,b,c);
  if ((a<c) and (a>b)) or ((a>c) and (a<b)) then
     writeln('yes')
     else
     writeln('no');
  readln()

end.