Ходи и побеждай Опции

[James Montegry]

В игру играют игрок и компьтер, которые хадят по очереди. За каждым разом игрок передвигается вперед на одну, две или три клетки. Побеждает тот, кто первый окажется на последней клетке. Игрок перед началом игры стоит на первой клетке.

Помогите решить вот такую задачку.

[Lapp]

Например, если компьютер (тупой) играет случайным образом, то можно примерно так:

  n:=12;  {начальное число клеток}
  player:=0;
  while n>0 do begin
    WriteLn('Осталось пройти ',n,' клеток');
    Write('Игрок ',player,', введите ваш ход: ');
    repeat
      if player=0 then ReadLn(m) else m:=Random(3)+1;
    until (m>0)and(m<4)and(m<=n)
    Dec(n,m);
    Player:=1-Player
  end;
  WriteLn('Игрок ',player,' выиграл');

[James Montegry]

Большое спасибо. Только как мне завершить программу? Просто "end." в конце мало

[Lapp]

Просто "end." в конце мало

Верно.
Учи Паскаль, и все поймешь.
Выкладывать полное решение для тунеядцев не собираюсь.

[James Montegry]

Выкладывать полное решение для тунеядцев не собираюсь.

И на этом спасибо.

З.Ы. Когда я смогу ставить плюсики?