Pascal Игра Ним

[#Azamat]

Игра Ним. Игроки по очереди берут спички (1-5) из стола. Выигрывает тот, кто возьмет последнюю спичку.

Код программы:

uses crt;
var Count: integer;
    Num: integer;
    Player: integer;
    skip: integer;

begin
repeat
Player := 1;
Textcolor(15);
write('Введите количество спичек: ');
readln(Count);
  
repeat
if Player=1 then begin
var Correct: boolean;
repeat
Textcolor(14);
write('Ваш ход: ');
readln(Num);
Correct := (Num>=1) and (Num<=5) and (Num<=Count);
Textcolor(14);
if not Correct then writeln('Повторите ввод!')
else Count:=Count-Num;
Textcolor(14);
writeln('На столе ', Count,' спичек.');
until Correct;
end//

else begin
Num := Count mod 6;
if Num=0 then num := random(1,5);
if Num>Count then Num := Count;
Textcolor(10);
Count -= Num;
writeln('Ход бота... На столе ', Count,' спичек!');
end;

if Player=1 then 
Player := 2
else Player := 1;
until Count=0;
 
Textcolor(15);
if Player=2 then writeln('Вы победили!')
else writeln('Вы проиграли!');
writeln('Хотите еще раз сыграть? Введите "1", иначе "0"');
read(skip);
until skip=0;
end.

Сама программа:

Чтобы видеть скрытое содержание Зарегистрируйтесь на форуме!

Virustotal:

Чтобы видеть скрытое содержание Зарегистрируйтесь на форуме!

Автор: #Azamat