// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!
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