7.0




5.2. - 3


Program P_2;

Var

a, b, c, d, x1, x2: real;

Begin

writeln( );

read (a, b, c);

d := b*b 4*a*c;

if d<0 then

writeln ( )

else

begin

x1 := (-b + sqrt(d)) / (2*a);

x2 := (-b - sqrt(d)) / (2*a);

writeln(x1=, x1:5:2, x2=, x2:5:2);

end;

End.

, THEN ELSE . . : ELSE THEN. - THEN.

. y :

.

1.

( ).

-

Program P_V1;