Ayoo.. di coba....

Program Menghitung_Akar_Persamaan_Kuadrat;
uses crt;
var
        a, b, c, D, x, x1, x2 : real;
begin
        write('Input a : ');readln(a);
        write('Input b : ');readln(b);
        write('Input c : ');readln(c);
        clrscr;
        if A=0 then
        begin
             x := -c / b;
             writeln('bukan persamaan kuadrat');
        end;
        begin
             D := B * B - 4 * A * C ;
             if D > 0 then
             begin
                  writeln('terdapat dua akar real yang berbeda');
                  x1 := (-B + sqrt(D))/(2 * A);
                  x2 := (-B - sqrt(D))/(2 * A);
             end;


             if D = 0 then
             begin
                  writeln('terdapat dua akar kembar');
                  x1 := -B / (2 * A) ;
                  x2 := x1 ;
             end;


             if D < 0 then
             begin
                  writeln('terdapat dua akar imajiner');
                  x1 := (-B + sqrt(-D))/(2 * A);
                  x2 := (-B - sqrt(-D))/(2 * A);
             end;
        end;
        writeln('Nilai x1 = ',x1);
        writeln('Nilai x2 = ',x2);
        readln;
end.