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.

Mình không biết vẽ ẽ hình vuông và ovan mong thông cảm.

uses crt;
var i,m,n,t:longint;
begin
clrscr;
   write('Nhap m,n: ');readln(m,n);
   for i:=m to n do  
       if i mod 2=1 then inc(t,i); 
   writeln('Tong cac so le tu m den n: ',t);
readln
end.