đây nhé bạn xin hay nhất  

uses crt;
var n,i,j,f1,f2,f3:integer;
    a,b:array[1..1000] of integer;
begin
    clrscr;
    readln(n);
    writeln('Prime');
    for i:= 2 to n do
    begin
        if (i = 2) or (i = 3) then a[i]:=i
        else
        for j:= 2 to i do
            begin
                if i = j then a[i]:=i;
                if i mod j = 0 then
                    break;
            end;
    end;
    for i:= 1 to n do
        for j:=1 to n do
            if (a[i]+a[j]=n) and (a[i]>0) and (a[j]>0) then
                writeln(n, ' = ', a[i], ' + ', a[j]);
    writeln('Fibonance');  
    f1:= 1; f2:= 1;
    for i:=1 to n do
            begin
                f3:=f1+f2;
                b[i]:=f3;
                f1:=f2;
                f2:=f3;
            end;
    for i:= 1 to n do
        for j:=1 to n do
            if (b[i]+b[j]=n) and (b[i]>0) and (b[j]>0) then
                writeln(n, ' = ', b[i], ' + ', b[j]);
end.