25 lines
551 B
ObjectPascal
25 lines
551 B
ObjectPascal
|
##
|
||
|
|
writeln('There are twelve tokens.');
|
||
|
|
writeln('You can take 1, 2, or 3 on your turn.');
|
||
|
|
writeln('Whoever takes the last token wins.');
|
||
|
|
|
||
|
|
var tokens := 12;
|
||
|
|
|
||
|
|
while (tokens > 0) do
|
||
|
|
begin
|
||
|
|
writeln('There are ' + tokens + ' remaining.');
|
||
|
|
writeln('How many do you take?');
|
||
|
|
var playertake := ReadInteger;
|
||
|
|
|
||
|
|
if (playertake < 1) or (playertake > 3) then
|
||
|
|
writeln('1, 2 or 3 only.')
|
||
|
|
else
|
||
|
|
begin
|
||
|
|
tokens -= playertake;
|
||
|
|
writeln('I take ' + (4 - playertake) + '.');
|
||
|
|
tokens -= (4 - playertake);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
writeln('I win again.');
|