Составить программу вычисления корней квадратного уравнения по данным значениям его

Язык какой?

Паскаль

на данный момент

Var
a,b,c,d:real;
    begin
        writeln('a,b,c ?');
        readln(a,b,c);
        d:=sqr(b)-4*a*c;
            if dlt;0 then  writeln('dlt;0');   
                if dgt;0 then       
                     writeln('x1= ',((-b)+sqrt(d))/(2*a),'  x2= ',((-b)-sqrt(d))/(2*a)) ;         
                         if d=0 then             
                            writeln('x1= ',(-b)/(2*a)); 
end.