program feltetel1;

{ Declarations section }

      
begin

  trisa := %11111111;   // port A bemenet
  trisb := %00000000;  // port B kimenet
  trisc := %00000000;  // port C kimenet
  trisd := %00000000;  // port D kimenet
  trise := %11111111;  // port E bemenet

  while true do // a folyamat ismétlése
   

begin
    
             then 
   
            portb.3 := 0; 
            portb.2 := 0;
            portb.1 := 0;
            portb.0 := 0;
            portb.7 := 1;
            portb.6 := 1;
            portb.5 := 1;
            portb.4 := 1; 


            else
          
   portb.7 := 0;
   portb.6 := 0; 
   portb.5 := 0;
   portb.4 := 0; 
   portb.3 := 1;
   portb.2 := 1;
   portb.1 := 1;
   portb.0 := 1;
        
    end;

end.