В антивирусе касперском есть режимы полной проверки и не полной так-же имеются обновления базы данных в интернете есть множество ключей от него на месяц бесплатно
Дерево игры - в прилагаемом файле.
У игрока, делающего ход первым (Пети) есть выигрышная стратегия: первый ход должен быть +3 (в куче получится 13 камней). В этом случае при ходе второго игрока (Вани) +3 (в куче 16 камней) первый (Петя) выигрывает ходом *2 (в куче 32 камня); при ходе второго игрока (Вани) *2 (в куче 26 камней) первый (Петя) также выигрывает ходом *2 (в куче 52 камня).
Второй игрок (Ваня) может выиграть только в случае, если первый (Петя) сделает начальный ход *2 (в куче 20 камней), следующий ход (Вани) *2 (в куче 40 камней) приводит к выигрышу.
Var s:string;
begin
writeLn('Назовите Ваше имя');
readln(s);
if (s='Вася')or(s='вася') then
writeLn('Привет, ',s)
else writeLn('А где Вася?');
end.
Надо создавать массив примерно так:
var m:array of Point:=(
new Point(0,25), new Point(0,0), new Point(3,0),
new Point(3,12), new Point(16,0), new Point(20,0),
new Point(10,10), new Point(20,25), new Point(16,25),
new Point(7,12), new Point(3,16), new Point(3,25));