program CSIERPIN(INPUT,OUTPUT);

   var i,h,x,y,x0,y0:integer;
       x2,y2:integer;
       moji :char;
       h0,N:integer;

  {$I GRAPHICS.PAS}

  {$I B:SIERPIN.SRC}

  BEGIN
    READLN(N,H0);
    SIERPIN(N);
    READ(MOJI);
    CLEARGRAPH
  END.