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

var x,y,a: real;beginreadln(x,a);if x<sqrt(a) then y:=sqr(ln(a))*exp(ln(sin(x))*3);if x=sqrt(a) then y:=(sin(x)/2)*sqr(ln(a));writeln(y);end.