program P7_2;
uses wincrt;
var
   a,i,sum,z:integer;
   x,y:string;
begin
     write('input: ')
     repeat
        read(x);
     until length(x)=6;
     i:=1;
     sum:=0;
     repeat
        y:=copy(x,i,1);
        val(y,z,a);
        sum:=sum+z;
        i:=i+1;
     until i>6;
     write('output:',sum);

end.

program P7_3;
uses wincrt;
var
   m,n:integer;
   st:string;
begin
     write('?');readln(n);
     repeat
           m:=n mod 8;
                case m of
                0:st:='0'+st;
                1:st:='1'+st;
                2:st:='2'+st;
                3:st:='3'+st;
                4:st:='4'+st;
                5:st:='5'+st;
                6:st:='6'+st;
                7:st:='7'+st;
                end;
     n:=n div 8;
     until n=0;
     writeln(st);

end.

program P7_5;
uses wincrt;
var
   n,fac,sum:integer;
begin
     write('?');readln(n);
     fac:=0;
     sum:=0;
     repeat
           fac:=fac+1;
           if n mod fac=0 then sum:=sum+fac;
     until fac>n;
     write(sum);

end.

program P7_7;
uses wincrt;
var
   m,isprime,fac:integer;
begin
     m:=30000;
     repeat
     m:=m-1;
     isprime:=1;
     fac:=1;
            repeat
                  fac:=fac+1;
                  if m mod fac=0 then isprime:=0;
            until (isprime=0) or (fac=m-1);
     until (isprime=1) or (m=2);
     write(m);
     

end.