program LED;

{ Declarations section }
var kvadrat,x:word;
begin
  { Main program }
  {postavljanje registara TRISn za odredivanje ulazno izlaznih portova
  TRISn.m := 1 postavlja pin n pod rednim brojem m kao ulazni
  TRISn.m := 0 postavlja pin n pod rednim brojem m kao izlazni}
  {ulazni pinovi}
  TRISA.0 := 1;
  TRISA.1 := 1;
  TRISA.2 := 1;
  TRISA.3 := 1;
  {izlazni pnovi}
  TRISA.0 := 0;
  TRISB := 0;
  {Postavljanje svih portova na nulu ("RESET")}
  PORTB := 0;

{Pocetak glavnog programa}
repeat
      IF PORTA.3 = 1 THEN  // kvadrat    element
      begin
           kvadrat := %111111111;    // geriras 9 bitni broj
           PORTB := kvadrat;         // svi B pinovi se pale
           PORTA := kvadrat shr 8;   // portA.0 se pali
      END
      ELSE IF PORTA.4 = 1 THEN   //trokut  element
      begin
           PORTB.1 := 1;
           PORTB.3 := 1;
           PORTB.5 := 1;
           PORTB.6 := 1;
           PORTB.7 := 1;
           PORTB.4 := 1;
      END
      ELSE IF PORTA.2 = 1 THEN    // x element
      begin
           x := %110101010;    // geriras 9 bitni broj
           PORTB := x;         // 1. , 3. , 5. , 7. B portovi se pale
           PORTA := x shr 8;   // portA.0 se pali
      END
      ELSE IF PORTA.1 = 1 THEN   // + element
      begin
           PORTB.0 := 1;
           PORTB.2 := 1;
           PORTB.3 := 1;
           PORTB.4 := 1;
           PORTB.6 := 1;
      END
      ELSE  // ukoliko nije niti jedan gumb stisnut svi portovi su u 0, ne svijetle diode
      begin
           PORTA := 0;
           PORTB := 0;
      END;
UNTIL 1=2


END.