Написать программу в паскаль, суть следующая:Пользователь вводит 10 целых чисел.. Полученная программа должна вывести на экран сумму только четных чисел. посчитайте 100 поинтов

program Chernovik;

var a,i,s: integer;

begin

s:=0;

for i:=1 to 10 do

begin

write(i:2,' число: ');

readln(a);

if a mod 2 = 0 then s:=s+a

end;

write('Сумма чётных чисел: ',s)

end.

Используем цикл с параметром (переменная i)

Вводим число (переменная a)

Если число чётное, то увеличиваем сумму (переменная s) на него

Выводим сумму