Ввести с клавиатуры 10 чисел и вычисляет их сумму и произведение

const
  N = 10;
type
  TVector = array[1..N] of Integer;
var
  I, S: Integer;
  A: TVector;
begin
  for I := 1 to N do
    Read(A[I]);
  WriteLn;
  
  S := 0;
  for I := 1 to N do
    Inc(S,A[I]);
  WriteLn('Summa = ', S);
 
  S := 1;
  for I := 1 to N do
    S := S*A[I];
  Write('Proizvedenie = ', S);
end.

var x, s, p: double;
    i: integer;
begin
  s := 0;
  p := 1;
  for i := 1 to 10 do
    begin
      write(i:2, ' число = ');
      readln(x);
      s := s + x;
      p := p * x
    end;
  write('Сумма = ', s, ', произведение = ', p);
  readln
end.

var  a1, a2, a3, a4, a5, a6, a7, a8, a9, a10: double;
begin
  write('a1 = '); readln(a1);
  write('a2 = '); readln(a2);
  write('a3 = '); readln(a3);
  write('a4 = '); readln(a4);
  write('a5 = '); readln(a5);
  write('a6 = '); readln(a6);
  write('a7 = '); readln(a7);
  write('a8 = '); readln(a8);
  write('a9 = '); readln(a9);
  write('a10 = '); readln(a10);
  write('Сумма = ', a1+a2+a3+a4+a5+a6+a7+a8+a9+a10, ', произведение = ', a1*a2*a3*a4*a5*a6*a7*a8*a9*a10);
  readln
end.