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

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