在我的代码中找不到错误：“; expected”

Question

当我运行代码时，它表示存在语法错误并且它标记了我的其他内容：致命：语法错误，;预期但是ELSE找到了。（顺便说一下，这只是我程序中的一部分）任何人都可以告诉我我做错了什么？

If D>0 then
   begin
       x1:=(-b)+sqrt(D)/(2*a);
       x2:=(-b)-sqrt(D)/(2*a);
       Writeln(x1,x2);
   else
      if D=0 then
   begin
       x:=(-b)/(2*a);
       Writeln(x);
   end;

Answer 1

试

If D>0 then
   begin
       x1:=(-b)+sqrt(D)/(2*a);
       x2:=(-b)-sqrt(D)/(2*a);
       Writeln(x1,x2);
   end
   else
      if D=0 then
   begin
       x:=(-b)/(2*a);
       Writeln(x);
   end;

Answer 2

我相信您还需要一个end;标记，因为您有两个if begin语句

If D>0 then
   begin
       x1:=(-b)+sqrt(D)/(2*a);
       x2:=(-b)-sqrt(D)/(2*a);
       Writeln(x1,x2);
   end
   else
      if D=0 then
   begin
       x:=(-b)/(2*a);
       Writeln(x);
   end;