Задача на Паскаль:в одномерном массиве А(10) определить сумму и количество элементов,которые меньше 5.

const   n=10; var   a:array[1..n] of integer;   i,s,k:integer; begin   Randomize;   Writeln('Исходный массив');   s:=0; k:=0;   for i:=1 to n do begin     a[i]:=Random(31)-10;     Write(a[i]:4);     if a[i]<5 then begin Inc(k); s:=s+a[i] end     end;   Writeln;   Writeln('Элементов, меньших 5: ',k,', их сумма равна ',s) end. Пример Исходный массив   18  18   9  -7   2 -10   9  16  11  -7 Элементов, меньших 5: 4, их сумма равна -22