program Kurac
ne znam ovaj deo sa begin end i to kako ide

int i:=0;
real suma := 0;
real srednjaVr := 0;

while(i<10) do begin
  if(niz[i]<0) then
    suma := suma + niz[i];
  end_if
end_while

srednjaVr := suma/10;