Var
N:integer;
S:real;
Begin
Write(N = );
ReadLn(N);
S:=0;
For N:= 1 to N do
S:=S+N*N*N;
WriteLn(S = ,S);
End.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.