program bai_giai;
uses crt;
var f:text;
a,b,c,denta:integer;
begin
clrscr;
Assign(f,'dulieu.txt'); reset(f);
readln(f,a,b,c);
denta:=b*b-4*a*c;
if denta<0 then write('Phuong trinh vo nghiem')
else if denta=0 then write('Phuong trinh co nghiem kep: x1=x2=',-b/(2*a))
else
begin
writeln('Phuong trinh co hai nghiem phan biet:');
writeln('x1=',(-b+sqrt(denta))/(2*a));
writeln('x2=',(-b-sqrt(denta))/(2*a));
end;
readln; close(f);
end.