Var a,b,k,s,i:integer;
begin
writeln('Введите границы интервала:');
readln(a,b);
k:=0; s:=0;
for i:=a to b do
 if (i mod 2 = 0) and (i mod 3 0)
   then begin k:=k+1; s:=s+i; end;
if k0
 then writeln('s = ',s,'  k = ',k,'  Среднее арифметическое = ',s/k)
 else writeln('Искомых чисел в заданном диапазоне нет');
end.

Пример:
Введите границы интервала:
4 16
s = 52  k= 5  Среднее арифметическое = 10.4