begin 

    comment library 1;

    integer 
        i,
        sum;
    sum := 0;
    for i := 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1,
        i + 1 do 
        sum := sum + i;
    outreal(1, sum);
end