with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Q5E is
   N : Integer;
   A, B : array (1 .. 100) of Integer; -- Tamanho máximo dos vetores
   Produto_Inteiro : Integer := 0; -- Inicializa o produto interno
   I : Integer;

begin
   -- Leitura do tamanho dos vetores
   Put_Line("Digite o tamanho dos vetores (n):");
   Get(N);

   -- Leitura do vetor A
   Put_Line("Digite os elementos do vetor A:");
   for I in 1 .. N loop
      Get(A(I));
   end loop;

   -- Leitura do vetor B
   Put_Line("Digite os elementos do vetor B:");
   for I in 1 .. N loop
      Get(B(I));
   end loop;

   -- Cálculo do produto interno
   for I in 1 .. N loop
      Produto_Inteiro := Produto_Inteiro + (A(I) * B(I));
   end loop;

   -- Exibição do resultado
   Put_Line("Produto interno: " & Integer'Image(Produto_Inteiro));
end Q5E;