program xxx;
var a, b, s, i : integer;
begin
write('введите а-');
readln (a);
write('введите b-');
readln (b);
s:=0; for i:= a to b do s:=s + i * sqr(i);
writeln ('сумма кубов =', s)
end.
