Program Dolboeb(vnaturi);
var
values: array[0..99] of integer;
idx: integer;
sum: integer;
begin
for idx:=0 to Length(values) do
begin
values[idx] := random( 145 ) - 45;
writeln(values[idx]);
if values[idx] mod 2 = 0 then
begin
sum+=values[idx];
end;
end;
writeln(sum);
end.