Найдите сумму кубов всех натуральных чисел от 1 до x вывестисами числа их кубы и конечный результат

//Pascalvar  sum: longint;  x: integer;  i: byte;begin  write('Введите число X: ');  readln(X);  for i := 1 to X do  begin    sum := sum + i*i*i;    writeln(i, ' в кубе = ', i*i*i);  end;  writeln('Сумма кубов от 1', ' до ', X, ' = ', sum);  readln;end.

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017// Внимание! Если программа не работает, обновите версию!begin  var x:=ReadInteger('x=');  var s:=0;  var x3:integer;  Range(1,x).ForEach(t->begin x3:=t*t*t; Writeln(t:3,'^3',x3:10); s+=x3 end);  Writeln('ИТОГО:',s:9)end.Примерx= 10  1^3         1  2^3         8  3^3        27  4^3        64  5^3       125  6^3       216  7^3       343  8^3       512  9^3       729 10^3      1000ИТОГО:     3025