var
  a: array[1..5, 1..5] of integer;
  i, j, p, s, doub_max: integer;
begin
  p := 1;
  s := 0;
  doub_max := -11;
  randomize();
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
    begin
      a[i,j] := random(25) - 10;
      write(a[i,j], ' ':3);
      if a[i,j] < 0 then
        s := s + a[i,j];
      if a[i,j] > doub_max then
        doub_max := a[i,j];
    end;
    writeln('');
    if a[i,i] <> 0 then
      p := p * a[i,i];
  end;
  doub_max := doub_max * 2;
  writeln('Произведение элементовна главной диагонали, не равных нулю равно ', p);
  writeln('Сумма отрицательных элементов матрицы равна ', s);
  writeln('Удвоенное значение максимального элемента равно ', doub_max);
end.