global i, s, j;
i := 0;
s := 0;
while i < 100
do
j := 0;
while j < 100
s := s + j;
j := j + 1
od;
s := s + i;
i := i + 1
write (s)