Задать в виде алгоритма в паскале: s=9,756y^7+2tngx

// 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

Var
   y,x:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
WriteLn('S = ',9.756*Exp(7*Ln(y))+2*Sin(X)/Cos(X));
End.