code c++:
#include <iostream>
using namespace std;
int main()
{
freopen("tbc.inp","r",stdin);
freopen("tbc.out","w",stdout);
int a,b,c,d;
cin>>a>>b>>c>>d;
float r;
r=(a+b+c+d)/4;
cout<<r<<endl;
return 0;
}
code pascal: