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

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