var 
y,a,x1,x2,b,c,x:real;
begin
writeln ('Квадратное уравнение y= ax^{2}+bx+c');
writeln ('Ведите a,b,c');
readln (a,b,c);
if ((b*b-4*a*c)>0) then begin
x1:=(-b+sqrt(b*b-4*a*c))/2*a;
x2:=(-b-sqrt(b*b-4*a*c))/2*a;
writeln ('Первый корень равен',' ',x1);
writeln ('Второй корень равен',' ',x2);
end;
if ((b*b-4*a*c)=0) then begin
x:=(-b+sqrt(b*b-4*a*c))/2*a;
writeln ('Корень уравнения один,он равен',' ',x);
end;
if ((b*b-4*a*c)<0) then write ('Кореней нет');
end.