program p1;
var i,sum:integer;
 
begin
sum:=0;
 
for i:=0 to 100 do
if not odd(i) then
sum:=sum+i;
 
writeln('Summa= ',sum);
 
readln;
end.