If Then Else Basicooooo

PROGRAM if_else;
var
   numero : integer ;
BEGIN
   writeln('Ingrese numero');
   readln(numero);
   if (numero mod 2) = 0 then
      writeln('Numero ',numero, ' es par')
   else
      writeln('Numero ',numero,' es impar');
END.