Как сделать так что бы программа в Паскале складывала числа, например от 1 до 10 (1 и 10 включительно)

Можно сложить с помощью цикла:

var

i, s, a, b: integer;

begin

readln(a, b);

s := 0;

for i:=a to b do

s := s + i;

writeln(s);

end.

А можно с помощью формулы суммы первых n-членов арифметической прогрессии:

var

s, a, b: integer;

begin

readln(a, b);

s := trunc(((a+b) / 2)*(b-a+1));

writeln(s);

end.