viết chương trình đọc tệp ' du lieu Inp' 2 số nguyen M,N (M<N) tính tổng các số lẻ trong phạm vi từ M đến N ghi kết quả ra tệp 'ket qua. out'

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.