Program indZ_15;

{Выполнила: студентка 1 курса Багликова А. В.}
Const

    PI = 3.14159;

Var B, x, A, C, Z, K, M: Real;

begin
    WriteLn('Введите A'); ReadLn(A);
    WriteLn('Введите B'); ReadLn(B);
    WriteLn('Введите C'); ReadLn(C);
    WriteLn('Введите x'); ReadLn(x);
    WriteLn('Исходные данные');
    WriteLn('A = ', A:16:8,' B = ', B:16:8,' C = ', C:16:8, ' x = ', x:16:8);
    K := 0.65 * A * PI * Power(x, 3);
    K := Power(Sin(K) / Cos(K), 1/2);
    K := (B * Sqr(Cos(x))) / K;
    M := (32.7 * Power(A, 3) * x) /(Exp(C + Power(x, 0.2)));
    WriteLn('Промежуточные данные');
    WriteLn('K = ', A:16:8,' M = ', M:16:8);
    Z := K + M;
    WriteLn('Результат');
    Write('Z = ', Z:16:8);
end.