Вводится 4 вещественных числа a,b,c,d. Рассчитать x. Арифметическое выражение не упрощать, квадраты чисел и выражений записывать как произведение. (Срочно)

var a,b,c,d,x:real;beginread(a,b,c,d);x:=((b+a*a-(d*d-a)*(d*d-a))/((c-d)+a+b))*((a-c)*(a-c)/b);writeln(x);end.