uses crt;
var a:array[1..100] of longint;
M,N,i:longint;
begin
write('nhap m,n: ');readln(m,n); {nếu cần thiết bạn viết thêm lệnh kiểm tra xem m<n hay không}
for i:=m to n do
if i mod 2<>0 then tong:=tong+i;
write('Tong cac so le tu m den n la: 'tong);
readln
end.