var 
  i: integer;
  s,p: real;
  x: real;
begin
  writeln('Введите 10 чисел: ');
  s := 0;
  p := 1;
  for i := 1 to 10 do
  begin
    read(x);
    s := s + x;
    p := p * x;
  end;
  writeln('Сумма введенных чисел = ',s);
  writeln('Произведение введенных чисел = ',p);
end.

var 
  s,p: real;
begin
  writeln('Введите 10 чисел: ');
  s := 0;
  p := 1;
  for var i := 1 to 10 do
  begin
    var x: integer;
    read(x);
    s += x;
    p *= x;
  end;
  writeln('Сумма введенных чисел = ',s);
  writeln('Произведение введенных чисел = ',p);
end.