Program ct;
Uses crt;
Var i,M, N :integer;
S:longint;
Begin clrscr;
Write('nhap 2 so M,N:');
Readln(M,N);
S:=0;
For i:=M to N do
If i mod 2=0 then S:=S+i;
Writeln('nhap cac so:', S);
Readln;
End.
program bai_giai; var f,g:text; m,n,i,t:longint; begin Assign(f,'dulieu.inp'); reset(f); Assign(g,'ketqua.out'); rewrite(g); readln(f,m,n); t:=0; for i:=m to n do if i mod 2=1 then t:=t+i; write(g,t); closE(f); close(g); end.