Урок №9 Задание 5

Урок №9 Задание 5

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

program Pr9_5;

var a,b,c:integer;

begin
  writeln('Введите три числа: ');
  readln(a,b,c);

  if (a>b) and (a<c) then
     writeln('Да')
  else
     writeln('Нет');

  readln();
end. 

Консоль:

Введите три числа:
1
2
3
Нет