Exercicio 7 de Unidimensional

Program Pzim ;
{Elabore um algoritmo que dado três vetores reais de 5 posições, leia estes vetores (usando
uma estrutura de repetição), calcule a expressão ((vetor1 * vetor3) / vetor2 ), utilizando os
valores da mesma posição, armazenando em um quarto vetor, também de números reais de
5 posições. No final, imprima os números do quarto vetor, com três casas decimais.}
var
v1, v2, v3, v4:array[1..5] of real;
i:integer;

 Begin
     {inicio do programa}
   
     for i:=1 to 5 do
         begin
             writeln('Digite o ',i,'o. valor do primeiro vetor : ');
             readln(v1[i]);
         end;
          clrscr; {limpa a tela}
     {entrada dos valores do primeiro vetor}

     for i:=1 to 5 do
         begin
             writeln('Digite o ',i,'o. valor do segundo vetor : ');
             readln(v2[i]);
         end;
         clrscr;{limpa a tela}
     {entrada dos valores do segundo vetor}

     for i:=1 to 5 do
         begin
             writeln('Digite o ',i,'o. valor do terceiro vetor : ');
             readln(v3[i]);
         end;
         clrscr; {limpa a tela}
     {entrada dos valores do terceiro vetor}
       
     for i:=1 to 5 do
         begin
             v4[i]:=((v1[i] * v3[i]) / v2[i] );
         end;
    {efetua a operação solicitada e atribui ao vetor 4, nas posições [i] de 1 ate 5}    
        
     for i:=1 to 5 do
         begin
             writeln('O valor da posição ',i, ' do vetor 4 é: ',v4[i]:1:3);
         end;
     {exibe o resultado do vetor 4 com 3 decimais}
 

 End.