Нужно решeние на paskal abc из интервала [a,b] найти среднее арифметическое тех чисел, при делении которых на m в остатке остается n.

var a,b,m,n,s,k,i:integer;
begin
readln(a,b,m,n);
s:=0; k:=0;
for i:=a to b do
if i mod m=n then
begin s:=s+i; k:=k+1; end;
if k>0 then writeln('среднее арифметическое=',s/k:5:2)
else writeln('требуемых чисел в данном диапазоне нет');
end.

Пример:
10 80 7 2
среднее арифметическое=47.50