Program Test;
{$mode objfpc}{$H-}
        
procedure Nirvana;
var
   Value, ModVar, DivVar, CurrentDigit: Integer;
begin
   Value:= 5;
   ModVar:= 10000;
   DivVar:= 1000;
   repeat
      // LED_On;
      CurrentDigit:= (Value mod ModVar) div DivVar;
      // wont't reach this point a second time
      // LED_Off;
      ModVar:= ModVar div 10;
      DivVar:= DivVar div 10;
   until ModVar = 1;   
end;

begin
   // InitLED;
   Nirvana;
   repeat
   until FALSE;
end.