Описать процедуру , решающую квадратное уравнения. (pascal)

Старая прога, поэтому код такой себе, но вроде понятно должно быть

1. спасибо большое!