Program divisible_11;
Var x:integer;
(***********************************)
Procedure saisie (var x:integer);
Begin 
Repeat
Writeln('Donner un entier ');
Readln(x);
Until x>0; 
end;
(**********************************)
Function divs_11(x:integer):boolean;
Var signe,som:integer;
Begin
signe:=1;
som:=0; 
Repeat
som:=som+signe*(x mod 10);
x:=x div 10;
signe:=-signe;
Until x=0;
divs_11:= som mod 11 = 0;
End;
(*************** P.P ***************)
begin 
saisie(x);
If divs_11(x) Then writeln('divisible par 11')
Else Writeln('non divisible par 11');
End.