INPUT ANS
IF NUM(ANS) THEN
  CRT 'NUMBER'
END ELSE
  CRT 'NOT NUMBER'
END
STOP