21 lines
309 B
Plaintext
21 lines
309 B
Plaintext
' FB 1.05.0 Win64
|
|
|
|
Dim As Integer x, y
|
|
Input "Please enter two integers, separated by a comma : ", x , y
|
|
|
|
If x < y Then
|
|
Print x; " is less than "; y
|
|
End If
|
|
|
|
If x = y Then
|
|
Print x; " is equal to "; y
|
|
End If
|
|
|
|
If x > y Then
|
|
Print x; " is greater than "; y
|
|
End If
|
|
|
|
Print
|
|
Print "Press any key to exit"
|
|
Sleep
|