Program Task_11;
var i: Integer;
var n: Integer = 5;
var x: Integer;
var s: Integer = 0;

begin
  n := 5;

  write('x = ');
  readln(x);

  for i := 1 to n do begin
    s := s + (n * n * n + n * x);
    writeln(s);
  end;

  write('The sum is: ');
  writeln(s);
end.