Pascal/Turbo Pascal - raices polinomicas

hola como estan? Me podrian ayudar con esto:

necesitaria hacer una funcion que me calcule las reices de un polinomio de 2do grado, y que me devuelva los resultado de las raices y si adems las dos raices son iguales o distintas o complejas(imaginarias).
si alguien puede ayudarme o la tiene (porque ya la hizo en algun momento) a mano se los agradeceria muchas gracias

Sólo tienes que aplicar una fórmula

Una función devuelve un solo valor