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.
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.