Viết chương trình ĐỌC 1 số nguyên từ tệp DL.txt trong ổ D:\.Sau đó GHI số đó vào tệp KQ.txt trong ổ E:\

program bai_giai;
var f,g:text;
    a:longint;
begin
    Assign(f,'D:\DL.txt'); reset(f);
    Assign(g,'E:\KQ.txt'); rewrite(g);
    readln(a);
    write(g,a);
    close(f); close(g);
end.