用 Pascal语言写出:有一个正整数的各个数字之和的11倍恰好等于它本身

var a,s:longint;procedure fenjie(b:longint);begin  repeat    s:=s+b mod 10;    b:=b div 10;  until b=0;end;begin  a:=0;  repeat    a:=a+1;    s:=0;    fenjie(a);    s:=s*11;  until a=s;  writeln(s);  readln;end。