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ứa 5 số nguyên mỗi số ở trên 1 dòng

const fi='songuyen.txt';
    fo='kluan.txt';
var i:byte;
    a:array[1..5]of longint;
begin
    assign(input,fi);reset(input);
    assign(output,fo);rewrite(output);
        for i:=1 to 5 do read(a[i]);
        for i:=1 to 5 do
            if a[i] mod 2=0 then writeln(a[i],' la so chan') else writeln(a[i],' la so le');
    close(input);
    close(output);
end.

var f1, f2: text;
    a: array [1..5] of integer;
    i: byte;
begin
     assign(f1, 'songuyen.txt');
     reset(f1);
     assign(f2,'kluan.txt');
     rewrite(f2);

     for i:=1 to 5 do
         readln(f1,a[i]);

     for i:=1 to 5 do
         if (a[i] mod 2 = 0) then writeln(f2,'So ',a[i],' la so chan') else writeln(f2,'So ',a[i],' la so le');

     close(f1);
     close(f2);
end.