# 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 three-figured integers that can be divided into three without a remain when the middle figure is taken outWrite down a program that defines the number of the whole positive three-figured integers that can be divided into three without a remain when the middle figure is taken out

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