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 st:string;
    i:longint;
begin
  readln(st);
  for i:=1 to length(st) do
  write(st[i],' ');
end.