Program ; Var a,b,c,x,y: real; Begin Writeln (Введите числа a, b и с) Readln( a,b,c); D:=sqr(b)-4*a*c; If d>= 0 then begin x:=(-b+sqrt(d))-2*a; y:=(-b-sqrt(d))-2*a; Write ln ( x=,x, у=,y); end; Else write (Корней нет); End.
{}