Code :

---

program Grafcettempo;
Var X0, X1, X2, t : Byte;
begin
TRISA:=$FC;
TRISB:=$FF;
portA:=0;
X0:=1; X1:=0; X2:=0; t:=0;
while (true) do
begin
// équations des étapes
if (( X0=1) AND (PORTB.0=1))then
begin
X0:=0;
X1:=1;
end;
if (( X1=1) AND (PORTB.1=1))then
begin
X1:=0;
X2:=1;
end;
if (( X2=1) AND (t=1))then
begin
X2:=0;
X0:=1;
t:=0;
end;
// équations des sorties:
if (X1=1) then PORTA.0:=1 else PORTA.0:=0;
if (X2=1) then
begin
PORTA.1:=1;
delay_ms(5000);
t:=1;
end
else PORTA.1:=0;
end;
end.