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

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
ПРИМЕЧАНИЕ: эта следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).

var
  a,b,c: integer;
  b1,b2: boolean;
  begin
  	writeln('vvedite tri celih chisla: ');
  	readln(a,b,c);
  b1 := (A<B) or (A>C); //(B>A>C)
  b2 := (C<B) or (C>A); //(B>C>A)
  	writeln('chislo a mezhdu b i c - ', b1 or b2);
  	if (true) then
     writeln('da')
  else
    writeln('net');
  readln();
  end.