#pas
Var
W,H:Integer;
X,Y:Integer;
const 
   step = 3;
   d_step = 1;
   //(step - 1) div 2;
Procedure Simple;
Var 
I,J,T,R,_R,_X,_Y,CNT:Integer;
begin
  for j := 0 to h-1 do begin 
    for i := 0 to W-1 do  
     begin
        cnt := 0;
        _r := 0;
       for t := 0 to step*step-1 do
        begin      
         _x := i + t mod step - d_step;
         _y := j + t div step - d_step; 
         if (_x >= 0) and (_x < W) and (_y >= 0) and (_y < H) then 
           begin
            R:=Red(GetPixel(1,_X,_Y));  
            inc(cnt);
            _R:=_r+r;
           end;
        end;
        r := _r div cnt;
        SetPixel(1,I,J,RGB(r,r,r));
     end;
    if J mod 10 = 0 then RunTime (H,Y );
   end;
end;
Const
clBlack   = $000000;
clWhite   = $FFFFFF;       
begin
W:=GetWidth(0);
H:=GetHeight(0);
//Amount:=1;
//StrToInt(GetParam('AM'));
//  if Amount=0 then Exit;
Simple; Simple;
//MSG('script run...'+IntToStr(w)+' '+IntToStr(H)+' ');
SResult('Stage 2 '+#13+#10+'Ok');
end.