program esep;
var
p,x,y:real;
begin
writeln('x,y=?');
readln(x,y);
P:=(2*tan(x*x+y*y));
writeln('p=',p);
end.
