Pascal :

var a:integer;
begin
  read(a);
  if a mod 8=0 then write('qian');
  if a mod 8=1 then write('zhou');
  if a mod 8=2 then write('wang');
  if a mod 8=3 then write('zheng');
  if a mod 8=4 then write('li');
  if a mod 8=5 then write('zhang');
  if a mod 8=6 then write('wu');
  if a mod 8=7 then write('sun');
end.