program sumowanie_ELEM_w_TABLICY;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
tab:array[1..5] of real;
i:byte;
s,sr:real;
begin
writeln('*** PROGRAM SUMUJE ELEMENTY WPISANE PRZEZ USERA ***');
for i:=1 to 5 do
begin
writeln('Podaj wartosc elementu o indexie numer ',i);
readln(tab[i]);
end;
for i:=1 to 5 do
begin
writeln('wartosc elementu o indexie ' ,i,' = ',tab[i]:0:2);

end;
begin
s:=0;
sr:=0;
for i:=1 to 5 do
s:=tab[i]+s;

for i:=1 to 5 do
sr:=s/5;


end;
writeln('suma liczb w tablicy = ',s:0:2);
writeln('srednia liczb w tablicy = ',sr:0:2);
FOR i:=1 to 4 do
WRITELN('');
writeln('******** THE END ********');
readln;
end.