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.

uses crt;
var n,i:longword;
function nt(n:longword):boolean;
var i:longword;
begin
    if n<2 then exit(false);
    if n<4 then exit(true);
    if n mod 2=0 then exit(false);
    if n mod 3=0 then exit(false);
    i:=5;
    while i*i<=n do
        begin
            if n mod i=0 then exit(false);
            if n mod (i+2)=0 then exit(false);
            inc(i,6);
        end;
    exit(true);
end;
begin
    clrscr;
    readln(n);
    for i:=2 to n-2 do
        begin
            if nt(i)=false then continue;
            if nt(n-i)=false then continue;
            write(i,' ',n-i);
            break;
        end;
    if wherex=1 then writeln('-1');
readkey;
end.

=========================

uses crt;
var n,i,j,d:longword;
    f:array[0..10000] of longword;
begin
    clrscr;
    readln(n);
    f[1]:=1;f[2]:=1;f[3]:=2;
    d:=3;
    while f[d]<n do
        begin
            inc(d);
            f[d]:=f[d-1]+f[d-2];
        end;
    for i:=1 to d do
        begin
            for j:=1 to d do
                begin
                    if f[i]+f[j]<>n then continue;
                    write(f[i],' ',f[j]);
                    break;
                end;
            if f[i]+f[j]=n then break;
        end;
    if wherex=1 then writeln('-1');
readkey;
end.