составить программу для нахождения среднего арифметического всех чисел от А до В

var a,b,sr,c:integer;

begin

readln (a,b);

for var i:=a to b do begin

sr:=sr+i;

c:=c+1;

end;

writeln (sr/c);

end.