viết chương trình đọc số nguyên n từ tệp songuyen txt; ghi vào tệp kluan. txt kết luận n là số chẵn hay số lẻ? biết tệp songuyen.txt chỉ chứa 1 số nguyên duy nhất

txt kết luận n là số chẵn vd

. Một file văn bản trên đĩa có tên là SON.INF chứa đúng một dòng bao gồm hai số tự nhiên n, m được viết cách nhau một dấu cách. Sau đây là một ví dụ về file này:4 5. Em hãy viết đoạn chương trình nhập hai số này từ file trên và in kết quả ra màn hình.

Var f:text;

m,n:integer;

Begin

Assign(f,'son.inf');   Reset(f);

Readln(f,m,n);

Close(f);

Writeln(m:4,n:4);

Readln;

End. 

program bai_giai;
var f,g:text;
    n:longint;
begin
    Assign(f,'songuyen.txt');  reset(f);
    Assign(g,'kluan.txt');  rewrite(g);
    readln(f,n);
    if n mod 2=0 then write(g,'CHAN') else write(g,'LE');
    close(f); close(g);
end.