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

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.