C++ :

#include<bits/stdc++.h>
using namespace std;
int n,t,s;
int main(){
    cin>>n;
    for(int i=0;i<=1000;i++)
    {
    	int a[10]={0};t=i;
    	for(;t!=0;t/=10)a[t%10]++;
    	if(a[n]>0)s+=a[n];
	}
	cout<<s;
    return 0;
}

Pascal :

var i,n,s,a,b,c:integer;
BEGIN
	readln(n);
	s:=0;
	for i:=0 to 1000 do
	begin
		a:=i div 100;
		b:=i div 10 mod 10;
		c:=i mod 10;
		if a=n then s:=s+1;
		if b=n then s:=s+1;
		if c=n then s:=s+1;
	end;
	writeln(s);
END.