Напишите программку в Паскале, которая определяет среднее арифметическое чисел в промежутке

var
    x, y, i, s : integer; // объявляем переменные
begin
    write(Введите начало и конец промежутка: ); // выводим строчку на экран
    readln(x, y); // считываем значение переменных, введенных с клавиатуры
      for i := x to y do  // цикл от первого числа промежутка до заключительного
        begin
             s:=s+i;  // считаем сумму чисел в промежутке
        end;

  writeln(s / (y - x + 1)); // выводим на экран среднее арифметическое

end.