Ajutațimă va rog frumos 🙏🙏🙏🙏🙏❤️❤️

program Quadratic;

var
  A,B,C,D: integer;

begin
  write('A = '
  readln(A);
  if (A=0) then
  begin
     writeln('Not a quadratic equation.'
     halt;
  end;
  write('B = '
  readln;
  write('C = '
  readln(C);
  D := B*B-4*A*C;
  if (D=0) then
  begin
     writeln('x = ',-B/2.0/A);
     halt;
  end;
  if (D>0) then
  begin
     writeln('x1 = ',(-B+Sqrt)/2.0/A);
     writeln('x2 = ',(-B-Sqrt)/2.0/A);
  end
  else
  begin
     writeln('x1 = (',-B/2.0/A,',',Sqrt(-D)/2.0/A,&#39'
     writeln('x2 = (',-B/2.0/A,',',-Sqrt(-D)/2.0/A,&#39'
  end;
end.