Не могу найти ошибку в моем коде: "; ожидается"

Question

Когда я запускаю код, он говорит, что есть синтаксическая ошибка, и он помечает меня еще: Fatal: синтаксическая ошибка; ожидается, но 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;