C :

#include <stdio.h>

int main()
{
	printf("7 31 6\n8 14 14\n2\n");
	return 0;
}

C++ :

#include <iostream>

using namespace std;

int main()
{
     int y,z,i;
     for(i=7;i<9;i++)
     {
         z=8*i-50;
         y=100-9*i-z;
         cout<<i<<" "<<y<<" "<<z<<endl;
     }
     cout<<'2'<<endl;
}

Pascal :

var
  i,j,t:longint;
begin
  for i:=1 to 11 do
  for j:=1 to 50 do
  if (9*i+j+100-9*i-j=100) and (i*2+j*2+(100-9*i-j)*4=100) and ((100-9*i-j)>0) then
  begin
  writeln(i,' ',j,' ',100-9*i-j);
  t:=t+1;
  end;
  writeln(t);
end.