{programmer:mogtaba amirzade url http:\\www.ifjam.com } program p17(input,output); {p17:repeat form} var j,l,k,i:integer; begin i:=1; repeat j:=1; repeat k:=1; repeat l:=k+j*10+i*100; writeln(l); k:=k+1; until k>3; {repeat 3} j:=j+1; until j>3; {repeat 2} i:=i+1; until i>3; {repeat 1} readln end.