C++ :

#include<bits/stdc++.h>
using namespace std;
int s;
int main()
{
	for(int i=1;i<=10;i++)
	{
		for(int j=1;j<=20;j++)
		{
			for(int k=1;k<=100;k++)
			{
				if(i+j+k==40&&i*10+j*5+k==100)
				{cout<<i<<" "<<j<<" "<<k<<endl;s++;}
			}
		}
	}
	cout<<s;
	return 0;
}

Pascal :

var
 s,i,j,k:longint;


   begin
   s:=0;
     for i:=1 to 9 do
      for j:=1 to 17 do
        begin
          k:=100-j*5-i*10;
          if (k>0) and(i+j+k=40) then
          begin writeln(i,' ',j,' ',k); inc(s); end;
        end;
        writeln(s);
  end.