program diof;

var x,y,n:integer;

begin
readln(n);

if n>0 then begin

for x:=0 to n do
 for y:=0 to n do

  if 3*x+5*y=n then writeln (x,', ', y);
  end

else  begin

for x:=0 downto n do
 for y:=0 downto n do

  if 3*x+5*y=n then writeln (x,', ', y);
  end;


  writeln('<Enter>');
  readln;
  end.