program PTBH;
uses crt;
var a,b,c:integer;
delta,x,x1,x2:real;
begin
clrscr;
write('a= ');readln(a);
write('b= ');readln(b);
write('c= ');readln(c);
if (a=0) then write('PT co 1 nghiem x= ',-c/b:5:2);
delta:=sqr(b)-4*a*c;
begin
x:=-b/(2*a);
x1:=(-b+sqrt(delta))/(2*a);
x2:=(-b-sqrt(delta))/(2*a);end;
if delta=0 then write('PT co nghiem kep x= ',x);
if delta>0 then begin
writeln('PT co hai nghiem phan biet:');
writeln('x1=',x1:5:5);
writeln('x2=',x2:5:5);
end;
if delta<0 then write('PT vo nghiem');
readln
end.
