Задача в Паскале
Проверьте, принадлежит ли интервалу (а,b) число с, где а,b,с- любые числа?

program zadacha;var a,b,c: integer;beginwriteln ('Введите интервал');read (a,b);writeln ('Введите число');readln (c);if (c>=a) and (c<=b) then writeln ('Число принадлежит интервалу')else writeln ('Число не принадлежит интервалу');end.