请写出计算机编程求解一元二次方程 ax2+bx+c=0(设a 0)实数根的步骤

#include<stdio.h>
#include<math.h>
main()
{
float a,b,c,p,x1,x2; /*a,b,c为方程的系数,p用来存放b*b-4ac 的值,x1,x2存放解*/
scanf("%f%f%f",&a,&b,&c);
if(a==0&b==0)
{
if(c==0)
printf("有无穷多个解");
else
printf("无解");
}
else if(a==0&&b!=0)
{
printf("方程的解为:%f",-c/b);
}
else if(a!=0)
{
p=b*b-4ac;
if(p<0)
{
printf("没有实数解");
}
else
{
x1=(-b+sqrt(fabs(p)))/(2*a);
x2=(-b-sqrt(fabs(p)))/(2*a);
printf("两个解为:%8.4f and %8.4f",x1,x2);
}
}
}

什么语言的啊？

如果是PASCAL：
proced