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

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