...una cosa del genere

numero:integer;

begin
numero:=x;
if numero/2=int(numero/2) then.... e' pari

end


ciao