public static void main(String[] args) {
    double a, b, c, x1, x2, delta;
    String ketQua = "";
    Scanner scanner = new Scanner(System.in);
     
         
    do {
        System.out.print("Nhập a (a # 0): ");
        a = scanner.nextDouble();
    } while (a == 0);
    System.out.print("Nhập b: ");
    b = scanner.nextDouble();
    System.out.print("Nhập c: ");
    c = scanner.nextDouble();
    delta = Math.pow(b, 2) - 4 * a * c;
    if (delta < 0) {
        ketQua = "Phương trình vô nghiệm!";
    } else if (delta == 0) {
        x1 = x2 = -b/ (2*a);
    } else {
        x1 = (-b + Math.sqrt(delta)) / (2 * a);
        x2 = (-b - Math.sqrt(delta)) / (2 * a);
        ketQua = "Phương trình có 2 nghiệm x1 = " + x1 + " và x2 = " + x2;
    }
    
    System.out.println(ketQua);
}

uses crt;
var a,b,c,x,x1,x2:longint;
pt:real
begin
clrscr;
write('a,b,c');readln(a,b,c);
while a=0 then 
begin
write('nhap lai a');readln(a);

pt:=sqr(b)-4*a*c;
if pt<0 then writeln('pt vo nghiem');
if pt=0 then
begin
X:=-b/2*a;
writeln('pt co nghiem kep',x:5:2);
end;
if pt>0 then
begin
X1:=-b-Sqrt(pt)/2*a;
X2:=-b+Sqrt(pt)/2*a;
writeln('pt co 2 nghien phan biet',x1:5:2,'  ',x2:5:2)
end;
readln
end.

trên java dưới pascal

import math
#Hệ số 
a = float(input("Nhập Hệ Số a: "))
b = float(input("Nhập Hệ Số b: "))
c = float(input("Nhập Hệ Số c: "))
delta = b*b - 4*a*c
#giải phương trình
if delta < 0:
    print("\nPhương Trình Vô Nghiệm !")
elif delta == 0:
    print("\nPhương Trình Có Nghiệm Kep x1 = x2", -b/(2*a))
else:
    x1 = (-b - math.sqrt(delta))/(2*a)
    x2 = -b/a - x1
    print("\nPhương Trình Có 2 Nghiệm Phân Biệt ")
    print("x1 = ",x1, "x2 = ", x2)