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

var   a, b, c: integer;   begin   writeln('Введите числа a, b, c');   readln(a, b, c);   if (b > a) and (b < c) then writeln('Истинно')   else writeln('Ложно'); end.