Program Fibnachi;
{PROCEDURA VIVODYASHAYA NA IKRAN CHISLA FABONACHI}
Procedure fibanachi(n:longint;var r:longint);
Var
i,f1,f2,j:longint;
Begin
f1:=1;
f2:=1;
for j:=1 to 4 do
Begin
for i:=1 to 11 do
Begin
r:=f1+f2;
f2:=f1;
f1:=r;
Writeln(r,' ');
end;
Writeln;
end;
end;
{PROCEDURA VIVODYASHIE PERVOE CHISLO FIBONACHE KRATNOE 13}
Procedure kratnoe(k:Longint; Var s:Longint);
Var
i,f1,f2,j:longint;
Begin
f1:=1;
f2:=1;
j:=1;
Repeat
s:=f1+f2;
f2:=f1;
f1:=s;
j:=j+1;
Until (s mod 13) = 0;
Writeln('MINIMALNOE  CHISLO F KRATNOE 13  =  ',s);
end;
{Procedura vivodyashaya proizvidenie pervix vosimi nechetnix chisel fabinachi}
Procedure proizvidenie(m:longint; Var s:Longint);
Var
i,f1,f2,l:longint;
Label t;
Begin
f1:=1;
f2:=1;
s:=1;
m:=6;
i:=1;
Repeat
Begin
l:=f1+f2;
if odd(l)=true then
Begin
s:=s*l;
i:=i+1;
end
else
i:=i;
f2:=f1;
f1:=l;
end;
Until (i=m+1);
Writeln('Proizvidenie pervix VOSMI NECHETNIX chisel = ',s);
end;
Var x,y,z,r,k,s,m,o:longint;
{NACHALO OSNOVI}
Begin
Fibanachi(x,r);
Kratnoe(k,s);
proizvidenie(m,s);
Readln;
End.