Урок 9 Задача 5

Урок 9 Задача 5

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

var a, b, c, x : integer;

var a, b, c, x : integer;

begin
  writeln('Введите три целых числа:');
  readln(a, b, c);
  if (b > c) then
    begin
      x := b;
      b := c;
      c := x;
    end;
  if (a > b) and (a < c) then
    writeln('да')
  else
    writeln('нет');
  readln();
end.