begin 

    comment library 1;

    integer 
        j,
        k,
        s;
    integer procedure f(n);
        value 
            n;
        integer 
            n;
        begin 
        integer 
            i,
            l;
        for i := n,
            s % 2 while s < 16 | s = 28 do 
            begin 
            s := s + i + n;
            l := i
            end;
        f := n + l;
        end f;

    s := - 1;
    for j := f(2),
        f(3) while s = 97 do 
        begin 
        s := s + f(5) + j + s;
        k := j
        end;
    s := s + k;
    outreal(1, s)
end