type Zi = (L, Ma, Mi, J, Vi, S, D) ;
Venit = array [Zi] of real;
var v: Vector;

Componentele variabilei v reprezintă venitul zilnic al
unei întreprinderi. Elaborați un program care va
calcula venitul saptămînal al întreprinderii.

Algoritmul programului
Vom defini, în partea declarativă, un tablou cu 7
elemente de tip real.
Vom introduce datele pentru fiecare zi.
Vom calcula suma tuturor elementelor ale acestui tablou.
Vom afișa suma saptămînal calculată.