MODULE case EXPORTS Main;
IMPORT IO;


VAR
    zeichen : CHAR;
    zahl    : INTEGER;

BEGIN
    zeichen := 'A';

    CASE zeichen OF
      |'a'..'z' => IO.Put("Das war ein kleiner Buchstabe\n");
      |'A'..'Z' => IO.Put("Das war ein grosser Buchstabe\n");
      |'?'      => IO.Put("Das war ein Fragezeichen\n");
      |',', ';' => IO.Put("Das war ein Komma oder Semikolon\n");
     ELSE 
        IO.Put("Das war weder ein Buchstabe, noch ein Fragezeichen,Komma oder Semikolon\n");
    END;
    
    zahl := 5;
    
    CASE zahl OF
      |0..9 => IO.Put("Die Zahl ist einstellig\n");
      ELSE 
        IO.Put("Die Zahl ist groesser gleich 10\n");
    END;
    
END case.