Pascal/Turbo Pascal - ayuda programa ecuacion

Hola espero anden bien antes que nada, necesito de su ayuda para realizar un programa en turbo pascal necesito hacer una ecuacion de 2o grado que contenga 3 tomas de desiciones:

1a: caso 1: if (A= 0) then x= -c/b

2a: caso 2: if (Discriminante {b*b-4*a*c} < 0) then r= -b/2*a o i= abs(Discrimininante)/2*a

3a: caso 3 else x1= -b+sqrt(discriminante)/2*a

x2=-b-sqrt(discriminante)/2*a


espero y me puedan ayudar les adjunto una imagen del diagrama de flujo para que se den una mejor idea gracias.

http://luiscastellanos.files.wordpress.com/2007/03/ecuacion-2do-grado.jpg

haver un algoritmo que imprima el nombre de un articulo, clave, precio original y su precio con descuento. el descuento lo hace en basse a la clave, si la clave es 01 el descuento es del 10% y si la clave es 02 el secuento en del 20% (solo exsten dos claves).