Вычисление корней квадратного уравнения в Кумире. Срочно пж,зарание спасибо.

Алг
нач
цел a, b, c, d
вещ x0, x1, x2
вывод "Введите значение переменных a, b, c."
ввод a, b, c
d := b*b - 4*a*c
если d < 0 то вывод "Корней нет." все
если d = 0 то
x0 := -b/(2*a)
вывод "Корень = "
вывод x0
все
если d > 0 то
x1 := (-b + sqrt(d))/(2*a)
x2 := (-b - sqrt(d))/(2*a)
вывод "Корни: "
вывод x1
вывод x2
все
кон