Я не могу понять в чем проблема, пишет ошибка?

ЕЩЕ можешь помечь?
begin
readln(a, b, c) ;
D:=sqr(b) - 4*a*c;
writeln('D= ', D);
if D=0 then
begin
x:= -b/2*a;
writeln('x= ', x:8:3);
end;
if D>0 then
begin
x1:= -b+sqrt(D)/2*a;
x2:= -b-sqrt(D)/2*a;
writeln('x1= ', x1:8:3, 'x2= ', x2:8:3) ;
end;
else writeln('Корней нету!');
end.

Буду рад за помощь!

Я не могу понять в чем проблема, пишет ошибка?

Спасибо! Да ошибку просто ужас! Я просто только начел! Спасибо еще раз!

Выдаёт ошибку Program1.pas(9): Встречено 'else', а ожидался оператор?

Program a;
var x, y: real;
begin
writeln('intege');
read(x);
if x < 0 then y := cos(2*x)+exp(x)
else y := 7*x/abs(2*x-1);
writeln('y=',y);
end.