Mình viết luôn Ctr bạn dựa vào viết thuật toán nhaa.

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.

Thuật toán

Bước 1: Nhập hai số nguyên dương $M,N $ sao cho $ M<N$

Bước 2: Cho biến i chạy từ M đến N

=> nếu i mod 2=1 => i là số lẻ => gán $S:=S+i;$

Bước 3: In ra kết quả và kết thúc thuật toán 

Chương trình tham khảo 

Program Hotboy ;

Uses crt;

Var i,m,n ,s : integer;

for i:=m to n do

Begin

Clrscr;

S:=0;

If i mod 2 =1 then

s:=s+i;

End;

write('Tong cac so tu m den n le la',S);

readln

end.