В начальный момент в первой куче было 5 камней, во второй куче – S камней; 1 ≤ S ≤ 38.
1. При каких S: 1 а) Петя выигрывает первым ходом;
б) Ваня выигрывает первым ходом?
2. Назовите одно любое значение S, при котором Петя может выиграть своим вторым ходом.
3. Назовите значение S, при котором Ваня выигрывает своим первым или вторым ходом.(*)

1. Дан массив a, состоящий из 8 элементов. Получить массив b, в котором b[i] = a[i]*a[i] (1 <= i <=8).
var a,b:array[1..8] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 8 do
begin
 a[i] := random(10);
 write (a[i], ' ')
 end;
writeln;
writeln('b:');
for i:=1 to 8 do
 begin
 b[i] := a[i]*a[i];
 write (b[i], ' ')
 end;
end.

Пример:
a:
2 9 7 5 2 0 8 7
b:
4 81 49 25 4 0 64 49

2.
var a:array[1..9] of integer;
i:integer;
begin
writeln('a:');
for i:=1 to 9 do
begin
 a[i] := random(50)+10;
 write (a[i], ' ')
 end;
writeln;
for i:=1 to 9 do
 if a[i] mod 2 = 0
  then writeln(a[i], ' - четное число')
  else writeln(a[i], ' - нечетное число')
end.

Пример:
a:
55 51 18 35 33 56 15 56 47 
55 - нечетное число
51 - нечетное число
18 - четное число
35 - нечетное число
33 - нечетное число
56 - четное число
15 - нечетное число
56 - четное число
47 - нечетное число

Using System;

public class MainClass
{
    public static void Main()
    {
        Console.Write("Введите количество элементов массива: ");
        int size = Convert.ToInt32(Console.ReadLine());
        int[] a = new int[size];
        for (int i = 0; i < size; i++) {
            Console.Write($"[{i}] = ");
            a[i] = Convert.ToInt32(Console.ReadLine());
        }
        int prev = a[0];
        for (int i = 1; i < size; i++) {
            if (a[i] <= prev) {
                Console.WriteLine("Последовательность не возрастающая");
                return;
            } else {
                prev = a[1];
            }
        }
        Console.WriteLine("Последовательность возрастающая");
        return;
    }
}