program ledvill;

begin
  ADCON1 := $06;         // Minden PORTA digit
  TRISD := %00000000;    // PORTD kimenet
  TRISA := %00011111;    // PORTB is output
  PORTD := %00000001;    // Első led bekapcs
  Delay_ms(100);
  PORTD := %00000010;    // Második led bekapcs
  Delay_ms(100)
end.