Program C12;
var 
C,f,x,y,k: real;

Function f(xf,yf:real):real;
begin
 f:=(1-exp(xf)+sqr(yf))/(sqrt(xf)+sqrt(yf));
end; {f}

Begin
 writeln ('A BoT BaM u PEzyJIbTAT');
 x:=2.64;
 y:=0.138;
 k:=8;
 C:=f(x,y)+2*f(x+2,y-k)+f(x-y,k);
 WRITELN ('C= ',C);
 READLN;
END.