Bài 3: Số nguyên tố (5 điểm) Biết rằng: “Mọi số tự nhiên chẳn lớn hơn 2 đều viết được dưới dạng tổng của 2 số nguyên tố". Viết chương trình đoc vào một số chắn N lớn hơn 2, hãy tìm cặp số nguyên tổ có tổng bằng N, nếu có nhiều cặp như vậy thì hãy tìm cặp có chứa số nguyên tổ nhỏ nhất. Dữr liệu: Vào từ file văn bản PRIME.INP gồm 1 dòng chứa số chắn N(4N 998) Kết quả: Ghi ra file văn bản PRIME.OUT chứa hai số nguyên to có tổng bằng N, số đầu tiên là số nguyên to nhỏ nhất (hai số này cách nhau bởi dấu cách). Ví dụ: HELP ME! VD LUÔN CHO MIK VS Ạ

Const Fi='PRIME.INP';
      Fo='PRIME.OUT';
Var f,g: text;
    n,i: longint;

Function ngto(a: longint): boolean;
Var i: longint;
Begin
        If a<2 then exit(false);
        For i:=2 to trunc(sqrt(a)) do
                If a mod i = 0 then exit(false);
        exit(true);
End;

Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        Read(f,n);
        For i:=2 to n do
                If (ngto(i)) and (ngto(n-i)) then
                Begin
                        Write(g,i,' ',n-i);
                        break;
                End;
        Close(f);
        Close(g);
End.