{
    Check that entered number is >= 0 AND < 100
}

PROGRAM IfProg1;

VAR
    Number : Integer;

BEGIN
    Write('Enter a number greater or equal than 0 and less Than 100: ');
    ReadLn(Number);
    
    IF Number >= 100 THEN
        WriteLn(StdErr, 'Error: ', Number, ' >= 100')
    ELSE IF NUmber < 0 THEN
        WriteLn(StdErr, 'Error: ', Number, ' < 0')
    ELSE
        WriteLn('Great! ', Number, ' >= 0 AND ', Number, ' < 100');
END.