Begin
solicitoDatos(num1,num2,num3);
raices(num1,num2,num3,cant,r1,r2);
resultado(cant)
End.
Me refiero a que esté todo realizado por subprogramas, recalco el hecho de que los hice por separado, respetando la idea de separarlos en entrada, salida e internos.