Var
 a,S:real;
 i:integer;
Begin
 S:=4+Ln(2);
 a:=4;
 For i:=1 to 7 do
  begin
   a:=a+2;
   S:=Ln(a+Ln(S));
  end;
 Writeln('Result = ',S:0:5);
 Readln;
End.

var
a,b,x,y,z:real;
function func(x,y:real):real;
begin
a:=abs(x-y);
b:=cos(a)/sin(a);
z:=5-2*y*b*b*b*b*b-a;
end;
begin
write ('x=');
readln(x);
write ('x=');
readln(x);
func(x,y);
write ('z=',z);
readln
end.