FUNCTION YES : BOOLEAN;

VAR CH : CHAR;

BEGIN
  READ(CH);
  IF CH IN ['Y','y'] THEN YES := TRUE ELSE YES := FALSE
END;