function Szumma ( v: Vektor ) return Szam is
	s: Szam := Zerus;
begin
	for i in v'range loop
		s := s+v(i);
	end loop;
	return s;
end Szumma;