Bài 4:

-------

Const Fi='ISLAN.INP';
      Fo='ISLAN.OUT';
Type manga=array[1..3000000] of longint;
Var f,g: text;
    A: manga;
    n,i,j,vt,z: longint;

Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);

        Readln(f,n);
        For i:=1 to n do Readln(f,A[i]);


        For i:=1 to n-1 do
                For j:=i+1 to n do
                        While A[i]=A[j] do
                        Begin
                                vt:=j; n:=n-1;
                                For z:=vt to n do
                                        A[z]:=A[z+1];
                        End;
        Writeln(g,n);
        For i:=1 to n do Write(g,A[i],' ');
        Close(f);
        Close(g);
End.

Bài 2

const fi='euler.inp';
      fo='euler.out';
var n,i,a,b:longint;
function checkprime(x:longint):boolean;
var i:longint;
begin
        for i:=2 to trunc(sqrt(x)) do if x mod i = 0 then exit(false) else exit(true);
end;
begin
        assign(input,fi);
        reset(input);
        readln(n);
        close(input);
        assign(output,fo);
        rewrite(output);
        for a:=n div 2 downto 2 do
                begin
                     if (checkprime(a)) then
                           begin
                                b:=n-a;
                                if (checkprime(a)) and (checkprime(b)) then
                                        begin
                                                write(a,' ',b);
                                                break;
                                        end;
                           end;
                end;
        close(output);
end.