вычислить значение выражения в паскале АВС

Question

вычислить значение выражения в паскале АВС

---

Answer 1

uses crt;
var x,y:real;
F:real;
a,b:integer;
begin
writeln('Vvedite F(x,y)');
readln(x,y);
writeln('Vvedite a,b');
readln(a,b);
F:=Exp(-x)*(cos(x/a)-sin(y/b))/(sqr(cos(y/a))-(sqr(sin(x/b))));
writeln('F(',x,',',y,')=',F);
end.