var I,m,n,S :integer;
begin
write ('m,n');
read (m,n); S:=0;
for I:=m to n do
if (I mod 2=0) then S:=S+I;
write ('S= ',S);
end.
var I,m,n,S :integer;
begin
write ('m,n');
read (m,n); S:=0;
for I:=m to n do
if (I mod 2=0) then S:=S+I;
write ('S= ',S);
end.