Пожалуйста посчитайте пожалуйста срочно с информатикой сделать на паскале

var a,x: real;

begin

a:= 0;

readln(x);

a:= ((x+5)*Sqr(x-3))/(2*(x+2));

writeln(a);

end.