Program GenClave;
   uses crt;
   Var CI: longint;
       D0,D1,D2,D3,Clave: integer;

Function GenUni(C:longint) : integer;
  Var Dmas,Dmenos:integer;
  Begin
    Dmenos := C mod 10;
    repeat
      Dmas := C mod 10;
      C    := C div 10;
    until c = 0;
    GenUni := (Dmenos+Dmas) mod 10;
  End;

Function GenDec(C:longint) : integer;
  Var Suma:integer;
  Begin
    Suma := 0;
    repeat
      Suma := Suma + C mod 10;
      C    := C div 10;
    until c = 0;
    GenDec := Suma mod 9;
  End;

Function GenCen(C:longint) : integer;
  Var Suma:integer;
  Begin
    Suma := 0;
    repeat
      if C mod 10 mod 2 = 0 then
         Suma := Suma + C mod 10;
      C    := C div 10;
    until C = 0;
    GenCen := Suma mod 7;
  End;

Function GenUMi(C:longint) : integer;
  Var Prod: longint;
      Dmas: integer;
  Begin
    Prod := 1;
    repeat
      if C mod 10 <> 0 then
         Prod := Prod * (C mod 10);
      C    := C div 10;
    until C = 0;

    repeat
      Dmas := Prod mod 10;
      Prod := Prod div 10;
    until Prod = 0;

    GenUMi := Dmas;
  End;

Begin
  clrscr;
  write('Introduzca su No. '); read(CI);

  D0 := GenUni(CI);
  D1 := GenDec(CI);
  D2 := GenCen(CI);
  D3 := GenUMi(CI);  

  Clave := D3*1000+D2*100+D1*10+D0;

  writeln('Su clave es ',Clave,' Gracias por usar nuestro servicio');

  readkey;
end.

Program Divisores;
  uses crt;
  Var N,I,C:longint;

Function ConDiv(X:longint) : longint;
  Var C,I: longint;
  Begin
    C := 1;
    For I:= 1 to X div 2 do
        if X mod I = 0 then
           C := C + 1;
    ConDiv := C;
  End;


Begin
  clrscr;
  write('Introduzca el Numero: '); read(N);

  For I := 1 to N do
    if ConDiv(I) <= 2 then
       write(I,'  ');

  readkey;
end.