Реализована формула
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!
begin
Write('Введите х и у: '); var (x,y):=ReadReal2;
var s:=Power(Cos(Power(Pi*y/3-x,14)),6)+Sin(y*y*y);
Writeln('s=',s)
end.
Пример
Введите х и у: 2.175 -1.4
s=-0.335572582839361