program smorensaskolom;
function zb(n:string):longint;
  var
  i,sum,x,a:longint;
  begin
   sum:=0;
    for i:=1 to length(n) do {sad izvlacim svaki broj i kvadriram ga}
     begin
     val(n[i],x,a); {ovo ti sluzi da pretvori odredjeni znak u broj}
     sum:=sum+x*x; {znaci pretvara znak iz stringa n,u broj x}
     end;
     zb:=sum;      {eto cuvas zbirove u promjenjivoj sum i kasnije samo dodijelis tu vrijednost ovoj funkciji}
       end;
var
ulaz,izlaz:text;
l,i,x,br:longint;
s:string;
begin
  assign(ulaz,'broj.in');   {assign ti sluzi da se povezes sa datotekom}
  assign(izlaz,'broj.out');     
  reset(ulaz); {reset otvara datoteku}
  rewrite (izlaz); {kako da ti kazem...naznacujes da ces pisati u ovoj datoteKi}
   read(ulaz,x);    {znaci ocitavas varijablu x iz datoteke ulaz}
  str(x,s); {str ti sluzi da pretvoris broj u string}
  l:=length(s);
  br:=zb(s);
    while l>1 do             {radis sve dok ti ne dodje jednocifren broj}
    begin
    writeln (izlaz,br);
   str(br,s);
   l:=length(s);
   br:=zb(s);
   end;
    close(ulaz);                  {close zatvara datoteke}
   close(izlaz);
   end.