program Min;
uses crt;
var i,M,N,tong:integer;
begin
clrscr;
tong:=0;
writeln('Nhap M,N: '); readln(M,N);
if M>N then
begin
M:=M+N;
N:=M-N;
M:=M-N;
end;
for i:=M to N do if (i mod 2 <>0) then tong:=tong+i;
writeln('Tong cac so le tu ',M,' den ',N,' la: ',tong);
readln
end.
Giải thích thêm: Từ dòng "if M>N then begin... end;" dùng để hoán đổi vị trí của hai số $M,N$ trong trường hợp $M>N$, và nếu $M>N$ thì vòng lặp for không thực hiện được.