var
  p, s: longint;
  k, l: byte;

begin
  p := 1;
  for k := 1 to 30 do
  begin
    s := 0;
    for l := 1 to 10 do s += l * l + k;
    p *= (k + 5) * s;
  end;
  System.Console.WriteLine('Ответ: ' + p);
end.