Помогите составить программу на языке Turbo Pascal: определите сколько корней имеет уравнение y=а*х*х+в*х+с

Помогите составить программу на языке Turbo Pascal: определите сколько корней имеет уравнение y=а*х*х+в*х+сс использованием операторов: условного перехода if, разветвления case, безусловного перехода goto;