X := ( ( 1 + 2 ) - 3 ) + ( 1 + 3 );
Y := 0;
while X>0 do
  Y := Y+X;
  X := X-1
endwhile