C++ :

#include<bits/stdc++.h>
using namespace std;
string a;
int main()
{
	cin>>a;
	for(int i=0;i<a.size();i++)
		cout<<a[i]<<" ";
	return 0;
}

Pascal :

var a:integer;
begin
  readln(a);
  writeln(a div 10,' ',a mod 10);
end.