program Venit;
type zi=(L,Ma,Mi,J,V,S,D); Venit=array[zi] of real;
var v:Venit; i:integer; suma:real;
BEGIN
for i:=1 to 7 do
begin
writeln('Dati venitul pentru ziua ',i); readln(v[i]);
end;
{Acum sumam toate numerele si aflam venitul total:}
suma=:=suma+v[i];
writeln('Intreprinderea are ',suma:0:3,'$ pe saptamina'); readln;
END.
suma:0:3 - pentru a afisa numarul in modul dat: 13.235
program Venit;
type zi=(L,Ma,Mi,J,V,S,D); Venit=array[zi] of real;
var v:Venit; i:integer; suma:real;
BEGIN
for i:=1 to 7 do
begin
writeln('Dati venitul pentru ziua ',i); readln(v[i]);
end;
{Acum sumam toate numerele si aflam venitul total:}
for i:=1 to 7 do
suma=:=suma+v[i];
writeln('Intreprinderea are ',suma:0:3,'$ pe saptamina'); readln;
END.
suma:0:3 - pentru a afisa numarul in modul dat: 13.235