include c:\cxpl\codes;          \intrinsic 'code' declarations
int  A, I;
real N, S, S2;
[A:= [2,4,4,4,5,5,7,9];
N:= 0.0;  S:= 0.0;  S2:= 0.0;
for I:= 0 to 8-1 do
        [N:= N + 1.0;
        S:= S + float(A(I));
        S2:= S2 + float(sq(A(I)));
        RlOut(0, sqrt((S2/N) - sq(S/N)));
        ];
CrLf(0);
]