(Если не знаете ответ, пройдите мимо, не пытайтесь заработать на халяву решите, завтра нужно сдать умоляю.Вот условиеНужно с решением )Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежит куча камней. Игроки ходят по очереди, первый ход делает Петя. За один ход игрок может a) добавить в кучу два камня или б) увеличить количество камней в куче в три раза и затем добавить в кучу 2 камня. Например, имея кучу из 10 камней, за один ход можно получить кучу из 12 или 32 камней. У каждого игрока, чтобы делать ходы, есть неограниченное количество камней. Игра завершается в тот момент, когда количество камней в куче становится не менее 60. Победителем считается игрок, сделавший последний ход, то есть первым получивший кучу, в которой будет 60 или больше камней. В начальный момент в куче было S камней, 1 ≤S≤ 59. 1. При каких S: 1a) Петя выигрывает первым ходом; 1б) Ваня выигрывает первым ходом? 2. Назовите все значения S, при которых Петя может выиграть своим вторым ходом? 3. Назовите все значения S, при которых Ваня выигрывает своим первым или вторым ходом. P.s.В интернета этой задачи нет, нужно самим решить

Использовать Чертежник
алг 
нач
опустить перо
сместиться на вектор (0,4)
сместиться на вектор (-1,-1)
поднять перо
сместиться на вектор (4,-3)
опустить перо
сместиться на вектор (-2,0)
сместиться на вектор (2,2)
сместиться на вектор (0,2)
сместиться на вектор (-2,0)
поднять перо
сместиться на вектор (3,0)
опустить перо
сместиться на вектор (2,0)
сместиться на вектор (-2,-2)
сместиться на вектор (2,0)
сместиться на вектор (-2,-2)
поднять перо
сместиться на вектор (5,0)
опустить перо
сместиться на вектор (0,4)
сместиться на вектор (-2,-3)
сместиться на вектор (2,0)
поднять перо
сместиться на вектор (1,-1)
опустить перо
сместиться на вектор (2,0)
сместиться на вектор (0,2)
сместиться на вектор (-2,0)
сместиться на вектор (0,2)
сместиться на вектор (2,0)
поднять перо
сместиться на вектор (3,0)
опустить перо
сместиться на вектор (-2,-2)
сместиться на вектор (0,-2)
сместиться на вектор (2,0)
сместиться на вектор (0,2)
сместиться на вектор (-2,0)
поднять перо
сместиться на вектор (3,-2)
опустить перо
сместиться на вектор (2,4)
сместиться на вектор (-2,0)
сместиться на вектор (3,0)
опустить перо
сместиться на вектор (0,-4)
сместиться на вектор (2,0)
сместиться на вектор (0,2)
сместиться на вектор (-2,0)
сместиться на вектор (2,0)
сместиться на вектор (0,2)
сместиться на вектор (-2,0)
поднять перо
сместиться на вектор (3,-4)
опустить перо
сместиться на вектор (2,2)
сместиться на вектор (0,2)
сместиться на вектор (-2,0)
сместиться на вектор (0,-2)
кон

//PascalABC.NET версия 3.3.5.1636 от 10.03.18
//Если программа не запускается, то обновите версию

const
    handsfree = true;
    nmax = 100;
    random_min = -28;
    random_max = 27;

var
    a: array[1..nmax] of integer;
    i, n, j, count: integer;
    mini, maxi: integer;
    min, max: real;
    temp: real;
    sum, product, harmonic: real;
    k: integer;

begin
    {ввод массива}
    n := nmax;
    if handsfree then
        n := random(nmax - 5) + 5
    else begin
        write('n = ');
        readln(n);
    end;
    
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(random_max - random_min) + random_min;
            write(a[i], ' ');
        end
        else
            readln(a[i]);
    end;
    writeln();
    
    {подсчет суммы и произведения и агригатов и кол-ва}
    sum := 0;
    product := 1;
    for i := 1 to n do
    begin
        sum := sum + a[i];
        if a[i] mod 3 = 0 then {если нужен фильтр}
            product := product * a[i];
    end;
    writeln('1) sum = ', sum);
    writeln('2) product = ', product);
    
    {подсчет суммы и произведения и агригатов и кол-ва}
    sum := 0;
    count := 0;
    for i := 1 to n do
    begin
        if i mod 2 = 1 then {если нужен фильтр}
        begin
            count := count + 1;
            sum := sum + a[i];
        end;
    end;
    writeln('3) average (selected) = ', sum / count);
    
    {подсчет суммы и произведения и агригатов и кол-ва}
    sum := 0;
    product := 1;
    count := 0;
    for i := 1 to n do
    begin
        if i mod 2 = 0 then {если нужен фильтр}
            sum := sum + a[i];
        if a[i] < 0 then {если нужен фильтр}
            product := product * a[i];
        if a[i] mod 2 = 1 then {если нужен фильтр}
            count := count + 1;
    end;
    writeln('4) count = ', count);
    writeln('4) sum = ', sum);
    writeln('4) product = ', product);
end.