"напиши программу для решения задачи: Найти сумму 12 четных элементов. используя основные алгоритмические конструкции для решения практических задач,используя for var , read, begin,write,if a mod ..... then,writeln"

Пример программы для решения данной задачи:

var i, sum, count, number: integer;

begin sum:= 0; count:= 0;

for i := 1 to 100 do begin read(number);

if (number mod 2 = 0) then
begin
  sum:= sum + number;
  count:= count + 1;
end;

if count >= 12 then
  break;

end;

writeln('Сумма 12 четных элементов: ', sum); end.