#pas
        while PINC.2=0 do
          begin
            for i:=0 to 15 do
                begin
                  PORTA := Lo (pe);
                  PORTB := Hi (pe);
                  for t:=0 to time do Delay_ms(1);   // задержка между переключением
                  pe := pe/2;                                  //сдвигаем бит через деление
                end;
            pe :=32768;
          end;

      end;