Составить программу для нахождения суммы последовательности чисел произвольного диапазона (паскаль)

var

x, y, i, s : integer; / / объявляем переменные целочисленного типа.

begin

writeln ('Введите число - начало диапазона: '); / / вывод строки на экран.

readln (x); / / считываем значение введенное с клавиатуры.

writeln ('Введите число - конец диапазона: '); / / вывод строки на экран.

readln (y); / / считываем значение введенное с клавиатуры.

for i : =x to y do / / начало цикла.

s: = s + i; / / считаем сумму элементов в диапазоне.

writeln ('Сумма последовательности чисел от ', x, ' до ', y,' равна ', s); / / вывод строки на экран.

end.