program z1320;

var f: text;

i:byte;

sum,n :integer;

begin

assign(f, 'c:\test.txt');

reset(f)'

i:=0;

while not eof(f) do begin

sum:=0;

While not Eoln(f) do begin

read (f,n);

if n mod 2=0 then sum:=sum+n;

end;

readln(f);

Inc(i0;

writeln(i,'summa=',sum);

end;

close(f);

readln;

end..