var a, b, sum : integer;
begin
println('Введите начало массива');
readln(a);
println('Введите конец массива');
readln(b);
for i : integer := a to b do
sum += i;
end;
print(sum);
end.
