PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadReal('x=');
var r:=Sqrt(Abs((Sqr(x**5-3)-5)/(5*x-7))+7)+10*x;
Print(r);
r:=Round(r);
Println(r)
end.
Пример
x= -12.502
36508.4531755161 36508