Решение задачи 3 из главы 9

Решение задачи 3 из главы 9

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

program Project3;
var A, B, C : integer;
  result : boolean;
begin
  writeln('Vvedite tri zelyh chisla:');
  read(A, B, C);
  result := (A > B) AND (A < C);
  if(result = true) then
  write('A mezhdu B i C. Otvet: da.')
  else
  write('A mezhdu B i C. Otvet: net.');
  readln();
end.