Дан массив из 15 элементов найти все числа кратные 2 я не шарю в этом напишите программу

Var
a:array[1..15] of integer;
i, cnt:integer;
begin
For i:= 1 to 15 do
  begin
    Read(a[i]);
    if (a[i] mod 2 = 0) then cnt:= cnt+1;
  end;
Writeln(cnt);
end.

Четырехзначное число в расширенной записи имеет вид

Известно, что первая и последняя цифры одинаковы, отсюда d=a.
Сумма цифр числа равна 16, т.е. 2a+b+c=16  (1)
Если число делится на 2, то оно четное, следовательно "a" может равняться
2, 4, 6, 8.      (2)
Нулю оно равняться не может, поскольку тогда число станет трехзначным.
Если четырехзначное число делится на 11, то модуль разности между суммами цифр, стоящих на четных и нечетных местах должна делиться на 11, т.е. |(a+c)-(a+b)|= |(c-b| делится на 11. Но разность двух однозначных чисел не может превышать 9, поэтому если она делится на 11, то она должна быть равна нулю. Но тогда с=b и число имеет вид
1000a+100b+10b+a.
А уравнение (1) будет выглядеть как
2a+b+b=16; 2a+2b=16; b=8-a  (3)
C учетом (2) можно из (3) получить 4 решения:
a=2, b=6
a=4, b=4
a=6, b=2
a=8, b=0
И это породит 4 возможных кода: 2662, 4444, 6226, 8008.

Объяснение:

Задание 1

b=int(input())

a=((b**3)/9)-(6.4*((b+8)))+((3*b)/4)

print(a)

Задание 2

a,b=map(int,input().split())

d=(((a**3)*b)/7)-(2*a*(b**2)*(a+b))

print(d)

Задание 3

a,b=map(int,input().split())

q=(3*(a**3)-(2*a*b)+(b**2))/(2*a*((3*a)-b))

print(q)

Задание 4

x,y=map(int,input().split())

k=(x**3)-(4*x*y*(x+(y**2)))

print(k)

Задание 5

u=int(input())

modul=(u+1.7)

if modul<0:

   modul*=(-1)

h=modul+((2*u)+3)

print(h)

Пояснение:

На самом деле надо понимать только ввод чисел, а дальше просто переписать условие. Ввод данных делается через input(). То есть если надо ввести переменную "а", то надо написать "а=input()", но так как "а" -это число, надо дать программе понять, что она является числом. Для этого даем ей значение int. (напрмер, str - это строка (буквы и тп), int - это целые числа).

Отсюда получаем команду для ввода данных: a=int(input)

Но это работает только тогда, когда надо ввести одну переменную. Для того, чтобы ввести несколько переменных, используем map

т.е., напр, если надо ввести не только "а", но и "b" делаем вот так:

a,b=map(int,input().split())

для троих переменных:

a,b,c=map(int,input().split())

и так далее