Написать программу для паскаля. Вычислить сумму элементов заданного массива, значение которых находится в интервале [a,b].

var a, b, sum : integer;

begin

 println('Введите начало массива');

 readln(a);

 println('Введите конец массива');

 readln(b);

 for i : integer := a to b do

 begin

   sum += i;

 end;

 print(sum);

end.