СРОЧНО! 1 ЗАДАЧА ПО ИНФОРМАТИКЕ!

Дан массив из 12 элементов. Найти количество элементов массива по абсолютной величине больших 15.

Не то, но всё равно спасибо.

Всё по заданию. А что именно не так?

Да там выяснилось, что не в виде программирования нужно делать, но спасибо за отклик всё равно.

vara:array [1..12] of integer;i,s:integer;beginwriteln('vvedite 12 chisel');for i:=1 to 12 doreadln(a[i]);writeln('massiv');for i:=1 to 12 dowrite(a[i],' ');writeln();for i:=1 to 12 doif abs(a[i])>15 then s:=s+1;writeln('kolichestvo elementov  = ',s)end.