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

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

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

var a,b,c:integer;
begin
  writeln('vvedite znachenia:');
  readln(a, b, c);
  if (a>b) AND (a<c) then
    writeln('Da')
  else
    writeln('Net');
readln();
end. 

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

'da' or 'net'