Определить является ли данное целое число R четным (программа Паскаль)

USES Crt;
VAR   
R: INTEGER;
BEGIN   
ClrScr;   
WriteLn('Введите число');
  ReadLn(R);  
 IF R MOD 2 = 0 Then WriteLn('Число четное')
                             Else WriteLn('Число не четное');
END.