Написать программу,проверяющую,принадлежит ли число отрезку [3;11]

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