Предметы
- Математика
- Русский язык
- Алгебра
- Английский язык
- Литература
- Физика
- Химия
- История
- Геометрия
- Биология
- География
- Другие предметы
- Қазақ тiлi
- Информатика
- Українська мова
- Обществознание
- Окружающий мир
- Українська література
- Музыка
- Немецкий язык
- Экономика
- Право
- Беларуская мова
- ОБЖ
- Французский язык
- Психология
- Технология
- Физкультура и спорт
- МХК
- Астрономия
- Кыргыз тили
- Оʻzbek tili
- Черчение
- Уход за собой
Подскажите в чём ошибка, ругается на точку запятой перед else
program uravnenie;
var a,b,c,d,x1,x2 : real;
begin
writeln ('введите значения коэффициентов a,b,c');
readln (a,b,c);
d:=sqr(b)+(4*a*c);
if (d>=0)
then begin
x1:= ((-1)*b+sqrt(d))/2*a;
x2:= ((-1)*b-sqrt(d))/2*a;
writeln (x1,x2);
end;
else writeln ('уравнение решений не имеет')
end.