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

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