Program MediaVenit;
type Zi=(L,MA,MI,J,V,S,D);
Venit=array[Zi] of real;
var ven : Venit;
i: Zi;
sum, MedArt: real;
begin
writeln ('Introduceti venitul ptu cele 7 zile:');
for i:=L to D do
begin
read (ven[i]);
sum:=sum+ven[i];
end;
MedArt:=sum/7;
writeln (MedArt);
end.