program main(); var a, b : integer; a:= 1; while a < 10 b := a; a++; b := b + 10; end