ПАСКАЛЬ!.Необходимо найти среднее арифметическое всех целых чисел от a до b. ФОРМАТ...

Question

ПАСКАЛЬ!.Необходимо найти среднее арифметическое всех целых чисел от a до b.
ФОРМАТ ВХОДНЫХ ДАННЫХ:
Вводятся два целых числа a и b(-2в15<либо равно a< либо равно b< либо равно 2в15 -1)<br> Формат выходных данных:
Требуется вывести одно число — искомое среднее, с точностью не менее шести знаков после запятой.

Answer 1

Var  
 a,b,i:integer; 
 s:real;
begin 
 write('введите a: '); readln(a); 
 write('введите b: '); readln(b); 
 s:=0; 
 for i:=a to b do s:=s+i; 
 s:=s/(b-a+1); 
 write('Среднее арифметическое: '); 
 writeln(s:10:6);
end.