24 lines
551 B
ObjectPascal
24 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.');
|