10. Используя среду программирования выполнить задание. Вычислить действительные корни уравнения ax(в квадрате)+bx(в квадрате)+c=0

хахахаа, я такую программу сам создавал от нефиг делать)) ток во втором мб не нужно в квадрате??? исходник от java прикрепил, вот паскаль var a,b,c,d,x1,x2 :extended; begin readln(a,b,c); d:=(b*b)-(4*a*c); if d<0 then begin write('Korney net!'); end; if d=0 then begin if b<0 then begin b:=b+b+b; x1:=b/(2*a); write(x1); end; if b>0 then begin b:=b-b-b; x1:=b/(2*a); write(x1); end; end; if d>0 then begin if b<0 then begin b:=b+b+b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end; if b>0 then begin b:=b-b-b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end; end; end.