Язык Pascal. Пользователю дано два целых числа - a и b, при условии что a < b. Найти среднее арифметическое всех целых чисел в интервале [a;b].
Program s; var a,b, sum, i, col: integer; sr: real; begin read(a); read(b); sum:=0; col:=0; for i:= a to b do begin sum:=sum+i; col:=col+1; sr:=sum/col; end; write('среднее арифметическое равно ', sr); end.