program sommaNumeriDispari (output);

type 	indTermini = 1..100;
	vetTermini = array [indTermini] of integer;

var termini : vetTermini;

	function sommaDispari (n: indTermini; term: vetTermini): integer;
		var i: indTermini;
		    somma: integer;

	{input: n, la lunghezza dell'array term; e term array numeri}
	{output: la somma dei numeri dispari contenuti in term}

	begin
	  somma:= 0;
	  for i:= 1 to n do
	    if odd(term[i]) then
	       somma:= somma + term[i];
	  sommaDispari:= somma;
	end;

begin
  termini[1]:= 23; termini[2]:= 34; termini[3]:= 34; termini[4]:= 9;
  writeln (sommaDispari (4, termini);
end.