const
 E = 2.7182818284;
 //Математическая константа Е
 //http://ru.wikipedia.org/wiki/E_(%D1%87%D0%B8%D1%81%D0%BB%D0%BE)

function fT(const a,b:real):real;
begin
 //Значение переменной Т
 fT := cos(a)/b;
end;

function fY(const x,a:real):real;
begin
 //Значение переменой Y
 fY := 3 * sin(x) + power(cos(a), 3);
end;

function fZ(const x,a,b:real):real;
begin
 //Значение функции
 fZ := ln(abs(sin(fY(x,a)))) - power(sin(E), fT(a,b));
end;

var
 x,a,b:real;
begin
 //Ввод значение
 readln(x,a,b);

 //Вывод результата
 writeln(fZ(x,a,b));
end.

program p187679;
{нужно создать программу вычисления функции в среде программирования Pascal ABC . 
вот ссылка https://rfpro.ru/upload/9583}
var z,x,y,t,a,b,tmp1,tmp2:real;
begin 
 write('Vvedite a='); //vvod a
 readln(a);
 write('Vvedite b='); //vvod b
 readln(b); 
 write('Vvedite x='); //vvod x
 readln(x);
 if b=0 then //proverka odz ( na 0 nelsya delit)
  writeln('Pri dannom b=',b,'; resheniy functsii net.')
 else
  begin
   y:=3*sin(x)+cos(sqr(a)*a);  //znachenie y
   writeln('y=',y);
   if sin(y)<0 then //proverka odz dlya naturalnogo algoritma
    writeln('Pri reshenii functsii poluchenii sin(y)=',sin(y),' < 0.')
   else 
    begin 
     t:=cos(a)/b;  //reshaem
     writeln('t=',t); //znachenie t
     tmp1:=ln(abs(sin(y)));  //chast fuctsii dlya proverki promegutochnih rezultatov
     tmp2:=sin(exp(t)); 
     writeln('Z=',tmp1-tmp2); //otvet
    end;
  end;
end.