Как-то так, хотя до конца ж не понятно что именно должна делать программа. По минимуму она вычисляет значения функции в определенной точке
var
x, y, a, b, f: real;
begin
readln(x, y, a, b);
f := b / x * sqr(cos(x / pi)) + (y - x / a) / (x + y / b) * sqr(sin(y / pi));
writeln(f);
end.