1-Write a PASCAL program to find the roots of a quadratic equation (assume that b2 – 4ac >= 0)

Program Root(input,output);

Var

A,b,c :integer;

X1,x2 : real ;

Begin

Writeln (‘Enter the Numbers A , B ,C’);

Readln (a,b,c);

X1:= (-b+sqrt(b*b –4*a*c))/(2*a);

X2:= (-b-sqrt(b*b –4*a*c))/(2*a);



Write (‘The Nunmber X1 =’,x1 ,’And Number X2 =’,x2);



End.