13 lines
359 B
Text
13 lines
359 B
Text
heap:=12;
|
|
while heap>0 do
|
|
!!('There are ',heap,' tokens left. How many do you want to take?');
|
|
?take;
|
|
while take<1 or take>3 or take>heap do
|
|
!!('You cannot take that number. Choose again.');
|
|
?take;
|
|
od;
|
|
!!('On my turn I will take ',4-take,' tokens.');
|
|
heap:-(4);
|
|
od;
|
|
|
|
!!('I got the last token. Better luck next time!');
|