[Eshk1n]

Program formula;
var
a, b, c, d, e, g, k, l, m, n, p, t, v: real;
begin
writeln('введите коэффициенты уравнения '); readln(a, b, c);
d:= (b * b) - (4 * a * c);
if d < 0 then writeln('уравнение не имеет решений ')
else
begin
if d = 0 then e:= (-b)/ (2 * a);
g:= sqrt(e);
k:= g * (-1);
writeln('уравнение имеет два корня ', g:6:3, ' è ', k:6:3)
else
begin
if d > 0 then l:= ((-b) + sqrt(d))/(2 * a);
m:= ((-b) - sqrt(d))/(2 * a);
n:= sqrt(l);
p:= n * (-1);
t:= sqrt(m);
v:= t * (-1);
writeln('уравнение имеет четыре корня: ', n:6:3, ' ; ', p:6:3, ' и ', t:6:3, ' ; ', v:6:3);
end
end
end.