est_magique

est_magique.pas

program Hell;
function est_magique(n:integer): boolean; 
var
a,i,somme,k:integer; 
b : String;
begin
      somme := 0;
      for k := 3 to 8 do
      begin      
          Str(n, b); // n par exemple 21025698 
          Writeln(b[k]);
          Val ( b[k], i);
          somme:=somme+ i;
      end;
      If (est_parfait(somme) == n) then result :=true; else result :=false;
end.