Напишите программу,проверяющую,принадлижит ли число интервалу (-7;24)

Program skorohodov20001;var a: integer ; Begin a:=0; writeln ('BBedite 4islo'); readln (a);  if (a> -7) and (a < 24) then begin writeln('Prinodleshit') end else begin writeln('Ne prenodleshit') ; end; end.