Безотлагательно!!!Под цифрой 12.Заранее спасибо великое

var

f,s, i: integer;

begin

s:=0;

i:=0;

readln (f);

while flt;gt; 0 do

begin

i:=i+1;

if (f mod 2=0) then

s:= s+f;

readln (f);

end;

writeln (s);

writeln (i);

end.

var a, s,n: integer;

begin

s:= 0;

n:=0;

readln(a);

while alt;gt;0 do begin

if (a mod 2 = 0)  then

n:=n+1;

s := s + a;  

readln(a);

end;

writeln(s,n);

end.