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

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.