program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
type tablica= array[1..8] of real;
var
 tablica1 : tablica;
 i, ilosc : integer;

Function srednia(tablica1:tablica):Real;
var suma : real;
    ilosc : integer;
 begin
 suma:=0;
 ilosc:=0;
 for i:=0 to 8 do
 begin
 if(tablica1[i] mod 2 = 0) then
 begin
 suma:=suma+tablica1[i];
 ilosc:=ilosc+1;
 end;
 end;
 srednia:=suma/ilosc;

 end;

begin
for i:=1 to 8    do
begin
  writeln('Podaj ',i,' element tablicy');
  readln(tablica1[i]);
end;

for i:=1 to 8    do
begin
  writeln('Element[',i,']=',tablica1[i]);

end;
writeln('Srednia elementow podzielnych przez dwa wynosi :',srednia(tablica1));
end.