Составьте программу вычисления суммы чисел в диапазоне то 1 до 100

Каких чисел? Если нечётных, то вот программа вычисления нечётных чисел:
var i, s: integer;
begin
s:=0;
for i:=1 to 100 do
if (i mod 2<>0) then s:=s+i;
end.