k=0;
    for(j=0;j<n;j++)
    {
       A[j]=B[j]+C[j]; /*S1*/
       C[j]=A[j]/D[j]-(log 10(E[j]*F[j]); /*S2*/
       K=k+A[j]+C[j];   /*S3*/
    }