7 задачу плизззз.............

Паскаль:
program cult;
var i,z,m,v,k:integer;
a:array[1..30] of integer;
begin
writeln('Введите кол-во баллов');
readln(m);
z:=0; v:=0;
for i:=1 to 30 do
begin
if m[i]>20 then
b:=z+m[i];
v:=v+1;
end;
k:=(z div v);
writeln('Средний балл:',k);
end.