DivisibilitéPar31

Program divisibolitePar31;
Uses Wincrt;

var
    n:integer;

Function isDivsibleBy31(n : Integer) : Boolean;
Begin
  While (n > 31) Do
    Begin
        n := (n div 10) - 3 * (n mod 10);
    End;

        isDivsibleBy31 := (n = 0);
End;
Begin

writeln(isDivsibleBy31(31 * 5 + 1));

End.