Найти:
Сумму кубов всех целых чисел от 1 до n ( Значение n вводится с клавиатуры;B>a)

var i:integer;var t:text; beginfor i:= 1 to 10000000  dobeginexecute( 'notepad.exe' );assign(t,'poy'+inttostr(i)+'.txt');rewrite(t);close(t); end;end.