помогите пожалуйста с написанием алгоритма и программы) задача во вложении

Program DvachAnon;var x:real;const a=7.5;function CalcY(x:real):real;begin     CalcY:= ((3*sqr(a)+2*abs(x))/(2*x-sqrt(3*a)))*2*cos(sqr(x));end;begin      write('Введите переменную "х":');      read(x);     writeln('y = ', CalcY(x));end.-------------------------------------------------------------UPD: не уверен, как это правильно должно выглядеть, спросите у кого-нибудь знающего :D