13 lines
200 B
Text
13 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
|