Program pr1;
Var 
 a,b,x,z:real;
Begin
 Write('введите х');
 ReadLn(x);
 Write('введите а');
 ReadLn(a);
 Write('введите b');
 ReadLn(b);
 If x<a then 
  Begin
   z:=exp(a*x)+sqr(cos(a+x));
   WriteLn('z=',z:6:3);
  end;
 if (sin(a*b)>0) and (sin(a*b)<1) then writeln('нет корней')
 else 
  begin
   If x=a then z:=sqrt(sin(a*b));
   writeln('z=',z:6:3);
  end;
 If x>a then
  If (a+x)=0 then WriteLn('нет корней')
  else z:=(3*exp((2+b)*ln(x)))+((x+b)/(a+x));
end.