Напишате программу вычмсления значения выражения с использованием наименьшего количества операторов: 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.