Помогите пожалуйста сделать 7 молю

program ur;var a,b,c: real; x1,x2,D: real;beginwriteln('Введите коэффициенты'); readln(a,b,c); D := b*b - 4*a*c; if D<0 then writeln('Корней нет') else if D=0 then begin x1 := -b/2/a; writeln('x1=x2=',x1); end else begin x1 := (-b-sqrt(D))/2/a; x2 := (-b+sqrt(D))/2/a; writeln('x1=',x1,' x2=',x2); end;end.

Спасибо большое