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

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

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

var a,b,c: integer;
begin
  writeln (' vvedite cheloe chislo a');
  readln (a);
  writeln (' vvedite cheloe chislo b');
  readln (b);
  writeln (' vvedite cheloe chislo c');
  readln (c);
if ((a > b) and (a<c)) or ((a < b) and (a>c))
   then
   writeln ('da')
else
   writeln ('net');

  readln();
end.

Консоль:

vvedite cheloe chislo a
6
 vvedite cheloe chislo b
3
 vvedite cheloe chislo c
9
da