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

var a,b,k,s,i:integer;beginwriteln('Введите границы интервала:');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 16s = 52  k= 5  Среднее арифметическое = 10.4