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

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

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

var
  a, b, c: integer;
  bool1, bool2: boolean;
begin
  writeln('Enter the first number');
  readln (a);
  writeln('Enter the second number');
  readln(b);
  writeln('Enter the third number');
  readln(c);
  bool1:= (a > b) and (a < c);
  bool2:= (a > c) and (a < b);
  if (bool1 or bool2) then
   writeln ('yes')
  else
   writeln('no');
  readln();
end.