задача 3 урок 9:

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

var A, B, C: real;
begin
  writeln('vvedite chislo A: ');
  readln(A);
  writeln('vvedite chislo B: ');
  readln(B);
  writeln('vvedite chislo C: ');
  readln(C);

  if (((A > B) AND (A < C)) OR ((A > C) AND (A < B))) then
      writeln(da)
  else
      writeln(net)

  readln();
end.