program ledvill;

{ Declarations section }
procedure ini_main();
begin
      ADCON0:=0;
      ADCON1:=0;

      PORTA := 0;
      TRISA := 0;
      PORTB := 0;
      TRISB := 0;
      PORTC := 0;
      TRISC := 0;
      TRISD := 0;

end;
begin
  { Main program }
  
  ini_main();
   WHILE (TRUE) Do
 Begin
      LATD0_bit:=1;
      delay_ms(1000);
      LATD0_bit:=0;
      delay_ms(1000);
 End;
end.