C++ :

#include<iostream>
using namespace std;
int main()
{
    int a,b,c,d,e;
    cin>>a>>b>>c>>d>>e;
    e+=a/3; b+=a/3; a/=3;
    a+=b/3; c+=b/3; b/=3;
    b+=c/3; d+=c/3; c/=3;
    c+=d/3; e+=d/3; d/=3;
    d+=e/3; a+=e/3; e/=3;
    cout<<a<<" "<<b<<" "<<c<<" "<<d<<" "<<e<<endl;
    return 0;
}

Pascal :

program aa;
var a,b,c,d,e:integer;
begin
 read(a,b,c,d,e);
 a:=a div 3; b:=b+a; e:=e+a;
 b:=b div 3; c:=c+b; a:=a+b;
 c:=c div 3; d:=d+c; b:=b+c;
 d:=d div 3; e:=e+d; c:=c+d;
 e:=e div 3; a:=a+e; d:=d+e;
 writeln(a,' ',b,' ',c,' ',d,' ',e);
 end.