Program KR2;
       VAR
        Z,P,S,m,a,b,x:Real;
        i,j:Integer;
begin
     Writeln ('vvedite znachenie b');
     Readln(b);
     Writeln ('vvedite znachenie x');
     Readln(x);
     a:=0.08;
     m:=2.3;
     S:=0;
     i:=1;
     P:=0;
     j:=2;
      while i<=4 do
       begin
       S:=S+sqrt(b)-m/(cos(a)*cos(a)+sin(a)*(a)*(a));
       i:=i+1;
       end;
      while j<=6 do
       begin
       P:=P+abs(x);
       j:=j+2;
       end;
     Z:=S+P;
     writeln ('Z=',Z);
     writeln ('b=',b);
     writeln ('x=',x);
end.