10 lines
262 B
Text
10 lines
262 B
Text
procedure main ()
|
|
writes ("Enter something: ")
|
|
s := read ()
|
|
write ("You entered: " || s)
|
|
|
|
writes ("Enter 75000: ")
|
|
if (i := integer (read ())) then
|
|
write (if (i = 75000) then "correct" else "incorrect")
|
|
else write ("you must enter a number")
|
|
end
|