i := 0;
s := 0; 

while i < 100
do
    j := 0;

    while j < 100
    do   
      s := s + j;
      j := j + 1
    od;

    s := s + i;
    i := i + 1
od;

write (s)