Solução em Pascal do Problema 4

program ProdutoEscalar;
const
  MAX = 10;
type
  Vetor = array [1..MAX] of real;
var
  i, N: integer;
  Prod: real;
  Resp: boolean;
  R: char;
  X, Y: Vetor;
begin
  Resp := True;
  while Resp do
    begin
      write ('Digite o tamanho do vetor: ');
      readln (N);
      writeln ('Entre com o vetor X:');
      for i:=1 to N do readln (X[i]);
      writeln ('Entre com o vetor Y:');
      for i:=1 to N do readln (Y[i]);
      Prod := 0;
      for i:=1 to N do Prod := Prod + X[i]*Y[i];
      writeln ('O produto escalar desses vetores: ',Prod);
      write ('Deseja calcular o Produto Escalar de outros vetores? (S ou N):');
      read (R);
      if (R = 'S') or (R = 's') then Resp := True
                                else Resp := False
    end
end.