Не могу найти ошибку.

[Picaso18]

Помогите пожалуйста найти ошибку в программе.Программа решение квадратных уравнений.

1program task1;
2 Var
3 a,b,c,x1,x2,x,d:real;
4 begin
5 Writeln('Введите a,b,c ');
6 readln(a,b,c);
7 if a = 0 Then  if b = 0 Then if c = 0
8 Then Writeln('Любое х') Else Writeln('нет решений')
9 Else begin  x:= - c / b ; Writeln (x) end;
10 else d:= sqr(b) - 4 * a * c;
11 if  d < 0 Then Writeln('Нет вещественных корней') Else
12 begin x1:=(-b + sqrt(d))/(2* a);
13 x2:=(-b - sqrt(d))/(2 * a);
14 Writeln(x1,x2)
15 end;
16 end.

когда выполняешь программу пишет ошибку в 10 строке.Что то типо неправельный символ.

[Google[Bot]]

В девятой строке надо убрать последнюю ";"

[alex_fcsm]

program task1;
 Var
 a,b,c,x1,x2,d:real;
 begin
 Writeln('Введите a,b,c ');
 readln(a,b,c);
 if (a = 0)and(b=0)and(c=0) then writeln('Любой х')
 else if a<>0 then
  begin
  d:= sqr(b) - 4 * a * c;
  if d>0 then  begin
               x1:=(-b + sqrt(d))/(2* a);
               x2:=(-b - sqrt(d))/(2 * a);
               Writeln('Первый корень:',x1);
               Writeln('Второй корень:',x2);
               end
     else if d<0 then writeln('Решений нет')
       else    writeln((-b + sqrt(d))/(2* a));
  end
   else if b<>0 then writeln(- c / b)
     else writeln('Решений нет');
 end.

[pomoshnic]

Не забудьте про Readln перед end.