var
  a: array [1..5, 1..5] of integer;
  i, j: byte;
  p: Int64;
begin
  for i := 1 to 5 do
  begin
    p := 1;
    for j := 1 to 5 do
    begin
      a[i, j] := random(-15, 20);
      write(a[i, j]:4);
      p *= a[i, j];
    end;
    writeln(' ', p);
  end;
end.