Задать 10 целых случайных чисел на отрезке (-20:40). Найти сумму четных положительных…

Program chisla; var a1,a2,a3,a4,a5,a6,a7,a8,a9,10: integer; beginwrite ('Введите 10 целых чисел от -20 до 40') read (a1); read (a2); read (a3); read (a4) read (a5); read (a6); read (a7); read (a8); read (a9) read (a10);