Нужен номер 10 сделать на паскале. пожалуйста очень надо

как-то так, хотя до конца ж не понятно что именно должна делать программа. По минимуму она вычисляет значения функции в определенной точке 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.