{ Check for negative discriminant }
if Discriminant < 0.0
then 
  writeln( 'Equation has no real roots' )
else
  begin
  { Calculate the two roots }
  Root1 := (-B + sqrt( Discriminant )) / (2*A);
  Root2 := (-B - sqrt( Discriminant )) / (2*A);

  { Print the results }
  writeln;
  writeln( 'Root 1 = ', Root1:5:3 );
  writeln( 'Root 2 = ', Root2:5:3 );
  end { of positive discriminant case }
end.