{var a,b,c:longint;

begin

clrscr;

write('Nhap so thu nhat ');readln(a);

write('Nhap so thu hai ');readln(b);

write('Nhap so thu ba ');readln(c);

if (a>b) and (a>c) then writeln(a,' la so lon nhat')

else if (b>a) and (b>c) then writeln(b,' la so on nhat')

else if (c>a) and (c>b) then writeln(c,' la so lon nhat')

else (a=b=c) then writeln('Ba so bang nhau');

readln

end.}

Không cần dùng Program và Uses Crt vì nó không cần thiết bạn nhé

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.