Пишет ошибка встречено "else",а ожидалось оператор, написано на паскале.
var a,b,c,D,x1,x2:real;
begin
writeln('Введите коэффициент a');
readln(a);
writeln('Введите коэффициент b');
readln(b);
writeln('Введите коэффициент с');
readln(c);
D:=b*b-4*a*c;
begin
if D>=0 then
x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
end;
Else
writeln('корней нет');
begin
writeln('x1=',x1);
writeln('x2=',x2);
writeln('D=',D);
writeln('Sqrt(D)=',sqrt(D));
end;
End.

Ответ:

Объяснение:

Можешь просто написать

if D<0 then  

 writeln ('Корней нет');