Viết chương trình - đọc tệp “Dulieu.txt” lấy 2 số nguyênA,B - tính tổng các số lẻ từ A->B - ghi kết quả và tệp ketqua.txt

uses crt;

var A, B, i, S : integer;

f1, f2 : text;

begin

clrscr;

assign(f1, 'Dulieu.txt'); reset(f1);

assign(f2, 'ketqua.txt'); rewrite(f2);

read(f1, A, B); S := 0;

for i := A to B do

if i mod 2 <> 0 then S := S + i;

write(f2, S);

close(f1); close(f2);

readln

end.

program bai_giai;
uses crt;
var f,g:text;
    a,b,t:longint;
begin
    Assign(f,'Dulieu.txt');  reset(f);
    Assign(g,'Ketqua.txt');  rewrite(g);
    readln(F,a,b);
    t:=0;
    for i:=a to b do
        if i mod 2=1 then t:=t+i;
    write(g,t);
    close(f); close(g);
end.