5 задание(сделать программу в паскале) Помогите пожалуйста

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 k<>0  then writeln('s = ',s,'  k = ',k,'  Среднее арифметическое = ',s/k)  else writeln('Искомых чисел в заданном диапазоне нет'); end. Пример: Введите границы интервала: 4 16 s = 52  k= 5  Среднее арифметическое = 10.4