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.

UHJvZ3JhbSBkaXZpc2libGVfMTE7ClZhciB4OmludGVnZXI7CigqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKikKUHJvY2VkdXJlIHNhaXNpZSAodmFyIHg6aW50ZWdlcik7CkJlZ2luIApSZXBlYXQKV3JpdGVsbignRG9ubmVyIHVuIGVudGllciAnKTsKUmVhZGxuKHgpOwpVbnRpbCB4PjA7IAplbmQ7CigqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKQpGdW5jdGlvbiBkaXZzXzExKHg6aW50ZWdlcik6Ym9vbGVhbjsKVmFyIHNpZ25lLHNvbTppbnRlZ2VyOwpCZWdpbgpzaWduZTo9MTsKc29tOj0wOyAKUmVwZWF0CnNvbTo9c29tK3NpZ25lKih4IG1vZCAxMCk7Cng6PXggZGl2IDEwOwpzaWduZTo9LXNpZ25lOwpVbnRpbCB4PTA7CmRpdnNfMTE6PSBzb20gbW9kIDExID0gMDsKRW5kOwooKioqKioqKioqKioqKioqIFAuUCAqKioqKioqKioqKioqKiopCmJlZ2luIApzYWlzaWUoeCk7CklmIGRpdnNfMTEoeCkgVGhlbiB3cml0ZWxuKCdkaXZpc2libGUgcGFyIDExJykKRWxzZSBXcml0ZWxuKCdub24gZGl2aXNpYmxlIHBhciAxMScpOwpFbmQu

MjI=

22