Описать функцию rootcount(a, b, c) целого типа, определяющую количество корней квадратного уравнения ax2 + bx + c = 0 (a, b, c — вещественные параметры, a ≠ 0). с ее найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами. количество корней определять по значению дискриминанта.
нужно решить через процедуру в paskalabc
и если можно то с пояснениями