spizdi;l1

         a :=((y[i+2]-y[i])*(x[i+1]- x[i])-(y[i+1]-y[i])*(x[i+2]-x[i]))/
    ((x[i+2]*x[i+2]-x[i]*x[i])*(x[i+1]-x[i])-(x[i+1]*x[i+1]-x[i]*x[i])*(x[i+2]-x[i]));
                    b :=(y[i+1] - y[i] - a*(x[i+1]*x[i+1] - x[i]*x[i])) / (x[i+1]-x[i]);
                    c :=y[i] - (a *x[i]*x[i] + b* x[i]);