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

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.