Паскаль Для массива из 10 элементов найти среднее арифметическое тех элементов значение которых меньше 15

program n1; var a:array[1 ... 10] of integer; i, s, k:integer; sr:real; begin for i:=1 to 10 do read (a[i]); for i:=1 to 10 do if a[i]<15 then begin s:=s+a[i]; k:=k+1; end; if k=0 then writeln ('ERROR') else begin sr:=s/k; writeln (sr:0:3); end; end.