Составить программу, которая вычислит еженедельный доход предприятия, если дано…

Program Venit; type Deni=(Pn,Vt,Sr,Ct,Pt,Sb,Vs); venit=array[Deni] of real; var v: venit; i,n: integer; s: real; BEGIN For i: =1 to 7 do writeln ('Введите доход для ',i,' дня'); readln (v[i]); For i: =1 to 7 do s: =s+v[i]; writeln (еженедельный доход предприятия: ',s: 0:2'); readln; END.