Вычислить значение функции Y(x). Значения переменных a и x должен задавать пользователь

Question

Вычислить значение функции Y(x). Значения переменных a и x должен задавать пользователь

---

Answer 1

Var x,y,a: real;
begin
readln(x,a);
if xif x=sqrt(a) then y:=(sin(x)/2)*sqr(ln(a));
writeln(y);
end.