C++ :

#include <iostream> 
#include <cstdio>
using namespace std;
int main()
{
	long long n,num,s;
	s=0;
	num=0;
	cin>>n;
	for(int i=0;i<n;i++)
	{
		num=num*10+n;
		// cout<<num<<endl;
		s=s+num;
	}
	cout<<s<<endl;
	return 0;
}

Pascal :

var
  i,j,a,b,c,s:longint;
begin
  readln(s);
  a:=s;
  b:=s;
  c:=s;
  for i:=2 to s do
  begin
  a:=a*10+c;
  b:=b+a;
  end;
  write(b);
  end.