p = 10; for (i=0; i<10; ++i) { y[i] = x[i] + x[p]; p = i;}
DO I=1,N S1 A(I)=… S2 …=A(I)END DO
DO I=1,N S1 A(I) = B(I) + 1 S2 B(I+1) = A(I) – 5END DO
DO I=1,N S1 A(I+1) =F(I) S2 F(I+1) = A(I)END DO
S1 PI = 3.14S2 R = 5S3 AREA = PI*R **2