{**********************************************************}
{                                                          }
{     This Program Determines if a number is less than or  }
{       greater than 37 or if it IS 37                     }
{                                                          }
{     Written By :  Charla Beaulieu   Date :  Feb 15, 99   }
{                                                          }
{**********************************************************}


Program thirtyseven;

Uses WinCrt;

Var  x : real;

Begin

     WriteLn ('Hello, please enter a number and my program tell you if it ');
     WriteLn ('is greater than or less than 37');
     Writeln;
     Readln (x);
     Writeln;

        If (x > 37) or (x < 37)
        Then  If x > 37
              Then
                  WriteLn ('Your number is greater than 37')
              Else   
                  WriteLn ('Your number is less than 37')

        Else
              WriteLn ('Are you trying to fool me?  Your number is 37!');

     Writeln;
     Writeln ('Thank you for using my program')

End.