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

Программа для решения задачи "Найти сумму 12 четных элементов" может выглядеть следующим образом:

begin var sum := 0; var count := 0;

for var i := 1 to 24 do begin read(i);

if i mod 2 = 0 then
begin
  sum := sum + i;
  count := count + 1;
end;

if count = 12 then
  break;

end;

write(sum); end.