Var
 R:real;
 i:Byte;

Function Tg(x:real):real;
begin
 tg:=Sin(x)/Cos(x);
end;

Begin
 R:=Tg(1);
 For i:=1 to 8 do
  R:=Tg((2*i+1)+R);
 Writeln('R= ',R:0:5);
 Readln;
End.

Var
 T:real;
 i:Byte;

Begin
 T:=1;
 For i:=0 to 9 do
  T:=T*ln((10*i)+2)/(i+2);
 Writeln('T= ',T:0:5);
 Readln;
End.

Const
 a=-5;
 b=5;
 h=0.2;
 N=10;

Var
 x,Xmin,Xmax,Ymin,Ymax:real;
 i:Byte;

Function y(z:real):real;
begin
 y:=Cos(z)/(1+Abs(z));
end;

Begin
 Xmin:=a;
 Ymin:=y(a);
 Xmax:=a;
 Ymax:=y(a);
 x:=a-h;
 Repeat
  i:=0;
  repeat
   i:=i+1;
   x:=x+h;
   If y(x)>Ymax then
    begin
     Xmax:=x;
     Ymax:=y(x);
    end;
   If y(x)<Ymin then
    begin
     Xmin:=x;
     Ymin:=y(x);
    end;
   Writeln('x= ',x:4:1,'   y= ',y(x):8:5);
  until (i=N) or (x>b-h/2);
  If x<b-h/2 then Readln;
 Until x>b-h/2;
 Writeln;
 Writeln('Maximum: x= ',Xmax:4:1,'   y= ',Ymax:8:5);
 Writeln('Minimum: x= ',Xmin:4:1,'   y= ',Ymin:8:5);
 Readln;
End.