Question

Okay so I'm having a problem with Mathematica Programming. Its not hard but for some reason I keep getting an error. It might just be a syntax problem but the program I'm trying to run is

Answer 1

Clear["`*"] (* Clears all previously saved variables *)
x = Input[
"Please enter a number:"] (* Request user input for the variable x \
to be tested *)
If[x > 2357(* To see if the user input is greater than 2357 *),
CreateDialog[{TextCell[
Row[{"You're inputted number is greater than 2357:", x}]],
DefaultButton[]},
WindowTitle ->
"Test!"] (* This is to pop up a window to state that the user \
input is greater than 2357 *),
If[x < 2357 (* To see if the user input is less than 2357 *),
CreateDialog[{TextCell[
Row[{"You're inputted number is less than 2357:", x}]],
DefaultButton[]}, WindowTitle -> "Test!"] (*
This is to pop up a window to state that the user input is less \
than 2357 *),
If[x == 2357 (* To see if the user input is equal to 2357 *),
CreateDialog[{TextCell[
Row[{"You're inputted number is equal to 2357:", x}]],
DefaultButton[]}, WindowTitle -> "Test!"] (*
This is to pop up a window to state that the user input is equal \
to 2357 *), Print["No acceptable value was entered"]]]]
(* Closing Third "nested" If statement *)