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

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

ПРИМЕЧАНИЕ: эта следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).

<pre class="brush: php">program project3;

{
 Даны три целых числа: a,b,c. Проверить истинность высказывания:"Число a
 находиться между числами b и c". Вывести "да", если истино, и "нет", если
 ложно.
}
var
  a,b,c:integer;
  b1,b2:boolean;

begin
  writeln('Vvedite celoe chislo a: ');
  readln(a);
  writeln('Vvedite celoe chislo b: ');
  readln(b);
  writeln('Vvedite celoe chislo c: ');
  readln(c);
  b1:=(b>a)and(a>c);
  b2:=(c>a)and(a>b);
  if(b1 or b2) then
  writeln('da')
  else writeln('net');
end.  </pre> 
Консоль:
Vvedite celoe chislo a: 
6

Vvedite celoe chislo b: 
8

Vvedite celoe chislo c: 
3

da