Программа в Паскале....

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var x,y,z:real;
  Writeln('Введите через пробел x,y,z: ');
  Read(x,y,z);
  var a:=y+x/(y*y+Abs(x*x/(y*y+x*x/3)));
  var b:=1+Sqr(Tan(z/(2*(x+y))));
  Writeln('a=',a,', b=',b)
end.