lama_byterun/regression/test010.expr
2019-09-19 18:37:08 +03:00

20 lines
183 B
Text

global i, s, j;
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)