Паскаль! .необходимо найти среднее арифметическое всех целых чисел от a до b. формат входных данных: вводятся два целых числа a и b(-2в15

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.