Program Actvidad1-ej2;
VAR
  digito,conj,num,par,impar,pri,ult:integer;
Begin
  repeat
    read(num);
    conj:=[];
    par:=0;
    impar:=0;
    pri:=num MOD 10;
    while(num > 0)do begin
      digito:=num MOD 10;
      if(digito IN conj)then begin
        write('El número tiene al menos un digito repetido');
      else
        conj:=conj+digito;
      end;
      if(digito MOD 2)=0)then begin
        par:=par+1;
      else
        impar:=impar+1;
      end;
      num:=num DIV 10;
      ult:=digito;
    end;
    if(impar=0)then begin
      write('el numero tiene todos sus digitos pares');
    else
      if(par=0)then
        write('el numero tiene todos sus digitos impares');
    end;
    if((pri MOD 2)<>0) and ((ult MOD 2)=0)then
      write('el primer digito es impar y el ultimo es par');
   until(cod<>1562)
End.