Вычислить значение функции

[SuYRo]

Здравствуйте, я полный 0 в программировании и даже такое решить не могу, помогите пожалуйста

[ForenLi]

В разделе фриланс вам помогут, только язык не забудьте указать.

[newerow1989]

const a = 6.1;
      b = -0.5;
      c = 4.2;
var x, y, z: real;
begin
   Write('x = '); Readln(x);
   Write('y = '); Readln(y);
   z:=b*Sin(a*x*x*Cos(b*y)-1)+Exp(Cos(a*x)-1)-1/(Ln(a*x)+c*Sin(b*y));
   Writeln('z = ', z:0:8);
   Readln;
end.