C :

#include <stdio.h>

int main()
{
	int x[5];
	scanf("%d %d %d %d %d", &x[0], &x[1], &x[2], &x[3], &x[4]);
	for (int i = 0; i < 5; i++)
	{
		x[(i + 1) % 5] += x[i] / 3;
		x[(i + 4) % 5] += x[i] / 3;
		x[i] /= 3;
	}
	printf("%d %d %d %d %d",x[0], x[1], x[2], x[3], x[4]);

	return 0;
}

C++ :

#include<iostream>
using namespace std;
int main()
{
    int a[6];
    for(int i=1;i<=5;i++)
      cin>>a[i];
    a[1]/=3;a[2]+=a[1];a[5]+=a[1];
    for(int i=2;i<=4;i++)
    {
      a[i]/=3;a[i+1]+=a[i];a[i-1]+=a[i];
    }
    a[5]/=3;a[1]+=a[5];a[4]+=a[5];
    for(int i=1;i<=4;i++)
      cout<<a[i]<<" ";
    cout<<a[5]<<endl;
    return 0;
}

Pascal :

program aa;
var x1,x2,x3,x4,x5:integer;
begin
 read(x1,x2,x3,x4,x5);
 x1:=x1 div 3;
 x2:=x2+x1;
 x5:=x5+x1;
 x2:=x2 div 3;
 x1:=x1+x2;
 x3:=x3+x2;
 x3:=x3 div 3;
 x4:=x4+x3;
 x2:=x2+x3;
 x4:=x4 div 3;
 x5:=x5+x4;
 x3:=x3+x4;
 x5:=x5 div 3;
 x1:=x1+x5;
 x4:=x4+x5;
write(x1,' ',x2,' ',x3,' ',x4,' ',x5);
end.