Sheima_Pascal

program exercice;
uses wincrt;
var n:integer;

procedure saisie(var n:integer);
begin
     repeat
           writeln('Donner N');
           readln(n);
     until
          (n>=100);
end;


function calcul(n:integer):string;
var
r,s:integer;
a,b:string;
begin
     str(n,b);
     repeat
           r:=0;
           s:=0;
           repeat
                 r:= n mod 10;
                 n:= n div 10;
                 s:= s + r;
           until
                (n=0);
           if (s>9) then
              n:=s;
     until
          (s<=9);

     str(s,a);
     calcul:=a+b;
end;


begin
     saisie(n);
     writeln(calcul(n));
end.