real procedure Sum(k, l, u, ak);
    value l, u;
    integer k, l, u;
    real ak;
begin
    real s;
    s := 0;
    for k := 1 step 1 until u do
        s := s + ak;
    Sum := s
end Sum;

...
Sum(i, 1, 100, V[i])
...