mushrooms.pas

program mushrooms;
var input:integer;
    output1, output2, output3:real;
begin
  readln(input);
  if (input mod 2 = 0) then begin
    output1 := trunc(input/3.3);
    output2 := output1;
  end
  else begin
    output1 := trunc((input-1)/3.3);
    output2 := output1+1;
  end;
  output3 := trunc((output1 + output2)/1.5);
  write(output3, ' ', output2, ' ', output1);
end.