# Examples://Code arrange

**To solve the problem you should shift the code with your mouse to end up with working solution.**

Problem:

Problem:

Write down a program that defines the number of the whole positive four-figured integers that can be divided into three without a remain when the figure of the hundreds is taken outWrite down a program that defines the number of the whole positive four-figured integers that can be divided into three without a remain when the figure of the hundreds is taken out

- if ((n div 1000)*10 + n mod 100) mod 3 = 0 then
- begin
- writeln(n)
- var n : integer;
- for n:=1000 to 9999 do
- end.