ПОМОГИТЕ!!! дан одномерный массив из 30 элементов массива задать случайным образом от -30 до 30. посчититать количество элементов величина которых по модулю не превосходит 7
var
a : array [1..30] of integer;
count, i : integer;
begin
count := 0;
for i := 1 to 30 do
a[i] := round (random (60)) - 30;
if abs (a[i]) <= 7 then inc (count);</p>
writeln (count);
end.