Объяснение:
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.
