Turbo Pascal Ввести два числа. Если сумма этих чисел четная, найти произведение, в противном случае, найдите частное этих чисел? срочно. За ранее спасибо

a) совокупность данных одного типа с общим для всех элементов именем.
b) именованная область внешней памяти, содержащая какую либо информацию
c) информация на внешнем носителе

2. Что такое индекс массива?
a) Размерность массива;
b) Глубина массива;
c) Ширина массива;
d) Объем массива.

3. Числовой одномерный массив B заполнен последовательно цифрами 2, 5, 7, 34. Каково будет значение элемента B (3)?
a) 34; b) 5; c) 7; d) 2.

4. Какие значения примут элементы массива A[3] и A[4] после выполнения последовательности операторов, если первоначально
A[3] := 2;
A[4] := 3;
B := A[3];
A[3] := A[4];
A[4] := B?
1) A[3] = 3; A[4 = 3
2) A[3] = 3; A[4] = 0
3) A[3] = 3; A[4] = 2
4) A[3] = 2; A[4] = 3

5. В представленном фрагменте программы значения одномерного массива задаются с помощью оператора цикла. Чему будет равно A[5]?
For i := 1 To 5 Do
Begin
A[2*i - 1] := i;
A[2*i] := i*i
End;

6. Сколько элементов содержится в массиве var c: array [2..23] of integer;
A) 23;
B) 21;
C) 22;
D) 2;
7. В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется:
for i:=0 to 10 do
A[i]:= i + 1;
for i:=0 to 10 do
A[i]:= A[10-i];
Чему будут равны элементы этого массива?
​1) 10 9 8 7 6 5 4 3 2 1 0
​2) 11 10 9 8 7 6 5 4 3 2 1
​3) 11 10 9 8 7 6 7 8 9 10 11
​4) 10 9 8 7 6 5 6 7 8 9 10

(с решениями)

раза если это не так

Помогите , чтобы программа пошла;3
2)Вводятся оценки за зачет и контрольную работу по физике,если сумма этих оценок больше или равна 8(на экране выводится молодец,или подтянис)(или работать больше надо)
Помогите)