{ File: eq2dispo.pas }

{ Scopo: uso di espressioni }

program EqGrado2DiscrPositivo;
{ Calcola le radici di un'equazione di 2o grado che si suppone essere a
  discriminante positivo.
}

var
  a, b, c,         { coefficienti dell'equazione }
  d       : real;  { quadrato del discriminante }

begin
  write('Immettere i 3 coefficienti: ');
  readln(a, b, c);
  d := sqrt(sqr(b) - 4*a*c);
  writeln('x1 = ', (-b-d)/(2*a):10:3);
  writeln('x2 = ', (-b+d)/(2*a):10:3)
end. { EqGrado2DiscrPositivo }