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

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

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

var a,b,c:integer;
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<b)and(a>c)) then
    writeln('DA')
  else
    writeln('NET');
  readln();
end.

Вывод консоли:

Vvedite chislo A:
3
Vvedite chislo B:
2
Vvedite chislo C:
5
DA

или

Vvedite chislo A:
1
Vvedite chislo B:
8
Vvedite chislo C:
4
NET