Data update

Task/Nim-game/PascalABC.NET/nim-game.pas

@@ -0,0 +1,24 @@
+##
+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.');