10. Используя среду программирования выполнить задание. Вычислить действительные корешки

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