12 lines
200 B
Text
12 lines
200 B
Text
string s;
|
|
message "write a string: ";
|
|
s := readstring;
|
|
message s;
|
|
message "write a number now: ";
|
|
b := scantokens readstring;
|
|
if b = 750:
|
|
message "You've got it!"
|
|
else:
|
|
message "Sorry..."
|
|
fi;
|
|
end
|