Составить программу на паскале.Вычислить корни квадратного уравнения, заданного коэффициентами A, B,C (предполагается, что а0 и что дискриминант уравнения неотрицателен)

Var   a,b,c,D,x1,x2:real;
begin
write(Введите коэффициенты a, b, c: );
readln(a,b,c);
D:= b*b-4*a*c; 
if D>0 then 
   begin
   x1:=(-b-sqrt(D))/2/a;
   x2:=(-b+sqrt(D))/2/a;
   writeln(Два корня: ,x1, и ,x2)
   end;
if D=0 then
   begin
   x1:=-b/2/a;
   writeln(Один корень: ,x1)
   end;
if Dend.