var
b, a, i, c, z, x, y: real;
begin
readln(a, b);
if (b < a) then
begin
c := sin(a) + sqrt(b);
if (c > 12.5) then
writeln('Z = ', System.Math.Log(b) + power(a, 3))
else
writeln('B = ', 0.25 * b + tan(a));
end
else
begin
x := -5;
readln(i);
while (x <= 6) do<br> begin
y := power(x, 3) + 1 / (x + 0.2);
if (y > 0) then
writeln('X = ', x:5, ' Y = ', y);
x += i;
end;
end;
end.
--------------------------
var
b, c, z, x, y: real;
begin
readln(b, c, x);
y := sin(x) / 2 + sqrt(sqr(b) + power(c, 5)) / (3.5 * b);
if (y >= 0) then
begin
z := (power(b, 6) - sin(x)) / (128 * c);
if (z < 12.5) then
writeln('Q = ', 1.25 * sin(x + b));
end
else
writeln(' y <0 ');<br>end.