Питон Условие
Даны целые числа d1, d2, ..., d10. Определите сумму тех из них, которые являются чётными.

Формат входных данных
Вводятся целые числа d1, ..., d10 (−215≤di≤215−1).

Формат выходных данных
Требуется вывести искомую сумм

program ms; uses crt; var a: array [1..10] of integer; l,k,s,i: longint; beginclrscr; writeln('введите 10 элементов массива'); for i: =1 to 10 dobegin    readln(a[i]);     if a[i]< 0 then l: =l+a[i];     if a[i]> 0 then k: =k+a[i]; end; s: =l*k; writeln(s); readkey; end.

как я поняла амур надо соединить с теми множествами в которые слово входит.

в множество слов, множество названий рек,множество слов на букву а входит 

месяцы,каждый месяц в каждом времени года-это и есть классификация

if x< 10 then x: =10

else

  if x< 15 then x: = 16

  else x: = 20

для обоих вариантов х=10, потому что дальше первой строчки оно не пойдет