program Svoe;
{$APPTYPE CONSOLE}
var i,j,z,n,n1,n2,n3,s:integer;
begin
writeln('Vvedit kilkist shodynok');
readln(n);
n1:=n div 1;
n2:=n div 2;
n3:=n div 3;
for i:=0 to n1 do
for j:=0 to n2 do
for z:=0 to n3 do begin
if 1*i+2*j+3*z=n then begin
writeln(i,'   ',j,'   ',z);S:=s+1;end;end;
writeln(s);
readln;
end.