Написать программу, которая выводит ответ "верно", если число в диапазоне от 100 до 150, кроме 120, и "неверно" в других случаях

Program chisloq;
uses crt;
var q: real;
begin
writeln ('Введите число');
readln (q);
if (q <150) and (q>100) and
((q>120) or (q <120)) then
writeln ('ВЕРНО')
else writeln('НЕВЕРНО');
end.