BEGIN
   REAL A, B, C, RESULT;
   INTEGER N;
   REAL ARRAY X[1:5];
   REAL SUM;

   X[1] := 1.0;
   X[2] := 4.0;
   X[3] := 9.0;
   X[4] := 16.0;
   X[5] := 25.0;

   N := 5;
   SUM := 0.0;
   FOR I := 1 STEP 1 UNTIL N DO
      SUM := SUM + SQRT(X[I]);

   RESULT := SUM / N;
   PRINT(RESULT)
END