C :

#include<stdio.h>

void print();
int main(){
	print();
	
	return 0;
}

void print(){
	int n;
	scanf("%d",&n);
	int a,b,c,d;
	if(n<10000){
		a=n/1000;
		b=(n/100)%10;
		c=(n/10)%10;
		d=n%10;
		printf("%d %d %d %d ",a,b,c,d);
	}
}

C++ :

#include<iostream>
using namespace std;
char s[10];
void change(char s[],int n)
{
	for (int i=6; n; i--)
	{
		s[i]=n%10+'0';
		n/=10;
		s[--i]=' ';
	}
	s[7]=' ';
	s[8]='\0';
}
int main()
{
	int n;
	cin>>n;
	change(s,n);
	cout<<s<<endl;
	return 0;
}

Pascal :

var s,t:string;
begin
  readln(s); 
  write(s[1],' ',s[2],' ',s[3],' ',s[4],' ');
end.