C++ :

#include<iostream>
using namespace std;
int main()
{
	cout<<4<<" "<<18<<" "<<78<<endl;
	cout<<8<<" "<<11<<" "<<81<<endl;
	cout<<12<<" "<<4<<" "<<84<<endl;
	return 0;
}

Pascal :

program t20885;
var g,m,x:integer;
begin
  for g:=1 to 19 do
    for m:=1 to 33 do
      begin
      x:=100-g-m;
      if (100-g*5-m*3)*3=x then writeln(g,' ',m,' ',x);
      end;
end.