Написать программу в Паскале для решения этого квадратного уравнения! y=x^2-6x+10

Помогите пожалуйста написать программу в Паскале для решения этого квадратного уравнения!
y=x^2-6x+10

  • program example1;
    var x1, x2, y1, y2: Integer;   
    d:Real;
    begin     
    Writeln(‘Эта программа решает квадратное уравнение’);
    a:=1;
     b:=(-6);
     c:=10;  
    D:=sqr(b)-4*a*c;
    If D>0 then x1:= ((-b)+sqrt(D))/2*a and 
    x2:= ((-b)-sqrt(D))/2*a
    Writeln(‘x1= ‘,d:6:2);    
     
    Writeln(‘x2= ‘,d:6:2);  
    Writeln(‘нажмите Enter для завершения работы программы’);
        
    Readln;
    end.