C++ :

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

Pascal :

var st:string;
    i:longint;
begin
  readln(st);
  for i:=1 to length(st) do
  write(st[i],' ');
end.