ПАСКАЛЬ!!!НАДЕЮСЬ НА ПОМОЩЬ((

begin
  var (x,y):=ReadReal2('Введите x,y:');
  Writeln((3+Exp(y-1))/(1+x*x*Abs(y-Tan(x))))
end.


Введите x,y: 2.16 -0.432
0.543001464791351

begin
  var x:=ReadReal('Введите x:');
  Writeln(x-x*x*x/3+x*Sqr(Sqr(x))/5)
end.


Введите x: 2.12
7.50860102997334

begin
  var (x,y):=ReadReal2('Введите x,y:');
  Writeln(Cos(x)/(Pi-2*x)+16*x*Cos(x*y)-2)
end.


Введите x,y: -0.534 3
-1.52895895115567