C :

#include<stdio.h>

int main()
{
	int a,b,c,d;
	scanf("%d",&a);
	b=a/100;
	c=(a%100)/10;
	d=a%10;
	printf("%d %d %d\n",b,c,d);
	return 0;
}

C++ :

#include<stdio.h>

int main()
{
	 int a,b,c,d;
	 scanf("%d",&a);
	 b=a/100;
	 c=a/10%10;
	 d=a%10;
	 printf("%d %d %d",b,c,d);
	 return 0;
}

Pascal :

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