var
  a: array[1..10, 1..10] of real;
  i, j: integer;
  s, p: real;

begin
  s := 0;
  p := 1;
  writeln('Введите сотню чисел (каждое с новой строки):');
  for i := 1 to 10 do
    for j := 1 to 10 do
    begin
      readln(a[i,j]);
      if i = 6 then
      begin
        s := s + a[i,j];
        p := p * a[i,j];
      end;
    end;
  writeln('Сумма чисел шестой строки матрицы равна ', s);
  writeln('Произведение чисел шестой строки матрицы равна ', p);
end.