Йе, а что, комп сам играть не будет? Ну, это не интересно
По уже обсужденному пара замечаний:
1. readkey (вообще, Варбан прав, ну да ладно
) Читаем раз, если #27, выходим, если #0, читаем еще раз, и вот тогда уже пойдут расширенные коды для стрелок всяких (влево 75, вправо 77, вверх 72, вниз 80). Вообще, чтобы больше вопросов по кодам не было, набиваешь маааленькую программку и играешься:
uses crt;
var c:char;
begin
repeat
c:=readkey;
writeln(ord©);
until c=#27;
end.
2. Если первоначальная комбинация составляется случайно, учти, что не каждая из них приводит к выигрышу. Ситуация, когда все числа стоят по порядку, кроме последней пары (...13,15,14) - неразрешима и, в принципе, коли уж она допустима, может считаться выигрышем (окончанием). При случайном раскладе шанс прийти к такому варианту - 1/2.