Найти сумму кубов всех целых чисел из диапозона: от а до в…

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.