data a;
input code day $ event x;
cards;
1         02        0       1.9
1         03        0       3.3
1         04        1       -4
1         05        1       18
2         01        0        6
2         02        0       4
2         03        1        7
;
data b(drop=summ xx);
set a;
if event ne 1 then delete;
  else
  if event=1  then do;
  do _n_=_n_-2 to _n_-1;
  set a(keep=x rename=(x=xx)) point=_n_;
  summ=sum(xx,summ);
  end;
  mean=summ/2;
  end;
run;