var a, b, d, x, y, y1: real;
begin
write('Введите x, a, b, d:');
readln(x, a, b, d);
y := cos(power(x, 3)) * power(a, 2);
y := 3 * power(y, x);
y1 := sin(x - power(b, 5));
y1 := abs(5 * a * power(y1, 4));
y1 := sin(y1);
y1 := power(y1, 2 * x);
y := y + y1;
y1 := abs(a - power(d, 4)) * sqrt(7 * a + power(sin(x + 6), 3)) + d;
y := sqrt(y / y1) * power(sin(x), 3);
writeln('Y=', y)
end.