Найти сумму чисел от 100 до 200 в паскале

var i,sum:integer;
begin
sum:=0;
for i:=100 to 200 do sum:=sum+i;
write(sum);
end.