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