program Programovanie_4;
var
   cislo, cifSucet, zvysok, i : Integer;
   najdeneCifry : array[1..10] of boolean;
   opakujeSa : boolean;

begin
     { nacitanie cisla }
     writeln('Zadajte cele kladne cislo:');
     readln(cislo);

     cifSucet := 0;
     opakujeSa := false;


     while (cislo > 0) do
     begin
          zvysok := (cislo mod 10);
          { ak sme uz raz mali tuto cifru, nastavime kladnu hodnotu pre opakujeSa}
          if (najdeneCifry[zvysok] = true) then
               opakujeSa := true
          else
               najdeneCifry[zvysok] := true;

          { scitame zvysk po celociselnom deleni }
          cifSucet := cifSucet + zvysok;
          { do testovacieho cisla ulozime novu hodnotu a to po celociselnom deleni desiatimi }
          cislo := (cislo div 10);
     end;

     { vypisy }
     writeln('Ciferny sucet zadaneho cisla je ', cifSucet, '.');

     write('Zapis cisla ');
     if (opakujeSa = false) then
        write('ne');
     writeln('obsahuje opakovane cifry');


     readln;
end.