Const
 Y0=0.3;
 Y1=0.2;
 Y2=0.1;

Function Tg2(x:real):real;
begin
 Tg2:=Sqr(Sin(x)/Cos(x));
end;

Var
 m,i,j:byte;
 Y:Array[1..4] of real;

Begin
 Y[2]:=Y0;
 Y[3]:=Y1;
 Y[4]:=Y2;
 Write('m= ');
 Readln(m);
 for i:=3 to m do
  begin
   for j:=2 to 4 do Y[j-1]:=Y[j];
   Y[4]:=Tg2(Y[1])+Y[2];
  end;
 Writeln('Result: ',Y[4]);
 Y[2]:=Y0;
 Y[3]:=Y1;
 Y[4]:=Y2;
 i:=3;
 While i<=m do
  begin
   for j:=2 to 4 do Y[j-1]:=Y[j];
   Y[4]:=Tg2(Y[1])+Y[2];
   Inc(i);
  end;
 Writeln('Result: ',Y[4]);
 Y[2]:=Y0;
 Y[3]:=Y1;
 Y[4]:=Y2;
 i:=2;
 Repeat
  Inc(i);
  for j:=2 to 4 do Y[j-1]:=Y[j];
  Y[4]:=Tg2(Y[1])+Y[2];
 Until i=m;
 Writeln('Result: ',Y[4]);
 Readln
End.

Var
 M,i,p,r:byte;
 A:Array[1..255] of Word;
 q:real;
Begin
 Write('M= ');
 Readln(M);
 r:=1;
 for i:=1 to M do
  begin
   Write('A[',i,']= ');
   Readln(A[i]);
   if A[i]=0 then r:=0;
  end;
 If r=1 then
  begin
   q:=A[2]/A[1];
   p:=0;
   i:=3;
   Repeat
    if A[i]/A[i-1]<>q then p:=1;
    Inc(i);
   Until (p=1) or (i=M);
   If p=1 then writeln('No!') else writeln('Yes!');
  end
 else
  writeln('No!');
 Readln
End.