// PascalABC.NET 3.2, сборка 1483 от 14.06.2017
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadReal('x =');
var y:=ReadReal('y =');
Writeln('S=',9*756*Power(y,7)+2*Tan(x))
end.
Пример
x = 2.43
y = -0.65
S=-335.272189184345