program bubu;

{$APPTYPE CONSOLE}
uses
  SysUtils;
 type
 vettore=array[1..10]of integer;
 var
 elementi:vettore;
 procedure caricamento(var elementi:vettore);
 var I:integer;
 begin
   for I :=1 to 10 do
   begin
     writeln('inserire elementi');
     readln(elementi[I]);
   end;
end;
function somma(elementi:vettore):integer;
var I,k:integer;
begin
  k:=0;
  for I := 1 to 10 do
    begin
      k:=elementi[I]+k;
    end;
    somma:=k;
end;
function n_pari(elementi:vettore):integer;
var I,k:integer;
begin
  for I := 1 to 10 do
    begin
    if elementi[I]mod 2=0 then
  k  :=k+1 ;
   end;
    n_pari  :=k   ;
end;
begin
 caricamento(elementi);
 writeln('la somma vale ',somma(elementi));
 writeln('i numeri pari sono ',n_pari(elementi));
 readln;
end.