没人帮忙吗？

还是没人帮忙吗？ 我继续等待

我愿意帮忙,可是力所不能及,不会.SORRY!

还是没人帮忙吗？ 我继续等待

这样应该可以吧，不大会
var aa,bb:array[0..100]of integer;
    a,b,i,j,n,m,l:integer;s:string;
    f:boolean;
function ok:boolean;
var i,j:integer;
begin
  for i:=1 to aa[0]-1 do
    if aa[aa[0]]=aa[i] then begin ok:=true;exit;end;
    ok:=false;
end;
begin
  readln(i);
  str(i,s);j:=i;aa[0]:=1;aa[1]:=j;
    repeat
      j:=0;
      for a:=1 to length(s) do
        j:=j+sqr(ord(s[a])-48);
      str(j,s);aa[aa[0]+1]:=j;
      inc(aa[0]);
    until ok or (aa[0]>99);
  write(aa[1]);
  for i:=2 to aa[0]-1 do write(',',aa[i]);
end.