Pascal Урок 9 задача 3 Решение

Pascal Урок 9 задача 3

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.

program U9Z3;
var a,b,c: integer;
begin
  writeln('vedite chislo');
  readln(a);
  writeln('vedite chislo');
  readln(b);
  writeln('vedite chislo');
  readln(c);
  if((a>c)and(a<b))or((a<c)and(a>b))then
    writeln('yes')
  else
    writeln('no');
  readln(); 
end.