MODULE ifthen EXPORTS Main;
IMPORT IO;


VAR
    zahl  : INTEGER;    
    error : BOOLEAN := FALSE;
    
BEGIN
    IO.Put("Bitte geben Sie eine positive Zahl ein : ");
    TRY
	zahl := IO.GetInt();
    EXCEPT
	IO.Error => IO.Put("Das war wohl nix =)\n");
		    error := TRUE;
    END;
    
    IF NOT error THEN
	    IF zahl >= 0 THEN
		IO.Put("Sie haben eine Zahl >= 0 eingegeben! \n");     
	    ELSE
		IO.Put("War zwar nicht positiv, aber trotzdem danke!\n");	    
	    END;
    END;
END ifthen.