case input of 'A'..'C': writeln('blah blah blah'); 'N','n': writeln('blah blah'); 'Y','y': writeln('blah'); else writeln('Input invalid!'); end;