Program phuongtrinhbac2;

uses crt;
var a,b,c,x1,x2,x,delta :real;

begin

clrscr;
writeln('nhap he so a:' ); readln(a);

writeln('nhap he so b:' ); readln(b);

writeln('nhap he so c:' ); readln(c);

delta:=b*b-4*a*c;

if delta >0 then

begin

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

x2:=(-b - sqrt(delta))/(2*a);
writeln('phuong trinh co 2 nghiem la ',x2, ' va ',x1);

end;

if delta =0 then

begin

x := -b/(2*a);

writeln('phuong trinh co nghiem kep',x);

end;
if delta < 0 then writeln ('phuong trinh vo nghiem');

readln;
end.

uses crt;
var a,b,c,d: integer;
begin
clrscr;
    write('Nhap cac he so a,b,c: '); readln(a,b,c);
    d:=b*b-4*a*c;
    if d>0 then begin
        writeln('Phuong trinh co 2 nghiem:');
        writeln('x1 = ',(-b+sqrt(d))/2*a);
        write('x2 = ',(-b-sqrt(d))/2*a);
    end else if d=0 then write('Phuong trinh co nghiem kep x = ', -b/2*a) else
    write('Phuong trinh vo nghiem');
    readln
end.