Два игрока, Петя и Ваня, играют в следующую игру. Перед ними лежат две кучки камней, в первой из которых 2, а во второй — 3 камня. У каждого игрока неограниченно много камней. Игроки ходят по очереди, первый ход делает Петя. Ход состоит в том, что игрок или утраивает число камней в какой-то куче, или добавляет 4 камня в какую-то кучу. Игра завершается в тот момент, когда общее число камней в двух кучах становится не менее 30. Если в момент завершения игры общее число камней в одной из кучи не менее 34, то выиграл Ваня, в противном случае — Петя. Кто выигрывает при безошибочной игре обоих игроков? Каким должен быть первый ход выигрывающего игрока? ответ обоснуйте.​

ВХОДЫэлектромагнитные волны (принимаемые радиоволны)
электроэнергия (питание)
мускульная сила человека (включение питания, переключение регуляторов)
пыль (может вывести из строя, снижает яркость изображения)
грязь (может вывести из строя, снижает яркость изображения)
тепло (может вывести из строя)
холод (может вывести из строя)
регулятор громкости (изменяет громкость)
кнопка включения/выключения
стоимость (определяет класс телевизора, его функции и надежность)
ВЫХОД
свет (изображение)
звук
электромагнитные волны (изображение, радиопомехи)
изображение
цвет (цветность изображения)
тепло (выделяемое телевизором тепло может нагревать сам телевизор и окружающие предметы - вплоть до возгорания)
стоимость - зависит от класса телевизора, его функциональности и надежности, и определяет, будут ли его покупать и, соответственно, использовать)

Программа, которая использует два массива

var 
c, a: array[1..20] of integer; 
i: integer;
begin 
write('Первый массив '); 
for i := 1 to 20 do   begin   
c[i] := i * (-5);   
write(c[i], ' '); 
end; 
writeln; 
write('Преобразованный массив '); 
for i := 1 to 20 do   begin   
a[i] := c[20 - i + 1];   
write(a[i], ' '); 
end;  
end.

ИЛИ  Программа не использующая два массива, а просто переворачивающая первый

var 
c: array[1..20] of integer; 
i: integer;
begin  write('Первый массив '); 
for i := 1 to 20 do   begin   
c[i] := i * (-5);   
write(c[i], ' '); 
end; 
writeln; 
write('Преобразованный массив '); 
for i := 20 downto 1 do  write(c[i], ' '); 
end.

Обе программы работают!