Ввести с клавиатуры 10 произвольных чисел, вычислить сумму чётных среди них.
(тема: накопление суммы)

var a,b,sum:integer;       beginsum:=0;for a:=0 to 9 do begin  read(b);  if (b mod 2 =0) then sum:=sum+b;end;writeln('сумма  чётных чисел sum=',sum);end.