Компьютерное моделирование

ELSE ;

решения квадратного уравнения?

write('a = '); readln(a);

write('b = '); readln(b);
write('c = '); readln(c);
if (a=0) then writeln('Не квадратное уравнение.');
else d := b*b-4*a*c;
if (d<0) then writeln(' нет корней');
else if (d>0) then
begin
writeln('x1 = ',(-b + Sqrt(d))/(2*a):3:3);
writeln('x2 = ',(-b - Sqrt(d))/(2*a):3:3);
end
else writeln('x = ',(-b+Sqrt(d))/(2*a):3:3);
end.

Пример программы:

решения не полных квадратных уравнений.