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.
