Помогите,пожалуйста,написать программу в паскале к задаче. Даны три целых числа: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.