Question

найти сумму квадратов всех целых чисел от -10 до b(значение b вводится с клавиатуры b>=-10

ПОМОГИТЕ СРОЧНО. ПЛИИИИИЗ!!!!!!!!!!!!!!!!!!!!!!!!!!!

Answer 1

var b,i,sum,sq:integer;

begin

readln (b);

for i:=-10 to b do

begin

sq:=sqr(i);

sum:=sum+sq;

end;

 

writeln (sum);

end.