C++ :

#include<bits/stdc++.h>
using namespace std;
int a,b,c,t,k,l,ss,sss,s;
int main()
{
	while(cin>>a>>b>>c)
	{
		t=a;
		k=b;
		l=c;
		while(t!=0)
		{
			s++;
			t/=10;
		}
		while(k!=0)
		{
			ss++;
			k/=10;
		}
		while(l!=0)
		{
			sss++;
			l/=10;
		}
		for(int i=s;i<max(s,max(ss,sss));i++)
			cout<<" ";
		cout<<a<<endl;
		for(int i=ss;i<max(s,max(ss,sss));i++)
			cout<<" ";
		cout<<b<<endl;
		for(int i=sss;i<max(s,max(ss,sss));i++)
			cout<<" ";
		cout<<c<<endl;
		s=0;
		ss=0;
		sss=0;
	}
   return 0;
}

Pascal :

program ex1(input,output);
  var x,y,z:integer;
begin
  while not eof(input) do
   begin
    readln(x,y,z);
    writeln(x:3);
    writeln(y:3);
    writeln(z:3);
   end;
end.