Помогите пожалуйста

Question

Помогите пожалуйста

---

Answer 1

Var a,b,i,h,s:integer;
begin
read(a,b);
for i:=a to b do
begin
h:=SQR(i);
s:=s+h;
end;
write(s);
end.