Решите задачу в паскале программа джини

найдите полупроизведение всех положительных элементов массива

Может быть это? pascal:

var a: array [1 ... 20] of integer;

i, k: integer;

s: real;

begin

/ / заполняем массив c клавиатуры

for i:=1 to 20 do

readln (ar) ;

//считаем среднеариф-е

s : = 0;

k : = 0;

for i:=1 to 20 do

if a >=0 then begin

s : = s + a;

k : = k + 1;

end;

writeln ('среднее: ', s/k) ;

end.