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

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

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

var a, b, c: integer;
  begin
    writeln('Vvedite chisla: a, b, c: ');
    readln(a, b, c);
    if ((a > b) and (a < c)) or ((a > c) and (a < b)) then
    writeln('Da')
    else writeln('Net');
    readln
  end.    

консоль

Vvedite chisla: a, b, c:
5
10
20
Net

Vvedite chisla: a, b, c:
10
5
20
Da

Vvedite chisla: a, b, c:
10
20
5
Da