Напишате программу вычмсления значения выражения с использованием наименьшего количества операторов: x 1,2=( -b+-rкорень из b2-4ac) / 2a

Program xx;
var  a,b,c,x:real;
begin
readln(a,b,c);
x:=(-(b)+sqrt(sqr(b)-(4*a*c)))/(2*a);
writeln('x1 = ',x:2:2);
x:=(-b-sqrt(sqr(b)-4*a*c))/(2*a);
writeln('x2 = ',x:2:2);
end.