Zadání:
Sestavte program, který určí počet přirozených trojciferných čísel majících všechny číslice různé.

Řešení:
Zadání vyřešíme použitím cyklu FOR, kterým otestujeme všechna trojciferná čísla. Každé číslo rozložíme na jednotlivé
cifry - první získáme celočíselným dělením hodnotou 100 (123 div 100 = 1), druhou odečtením první cifry vynásobené
hodnotou 100 a poté celočíselným dělením hodnotou 10 (123 - 1*100 = 23, 23 div 10 = 2) a poslední odečtením první cifry
vynásobené 100 a druhé cifry vynásobené 10 (123 - 1*100 - 2*10 = 3). Poté provedeme test shodnosti těchto tří hodnot.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var cislo,a,b,c,pocet:integer;

begin

   for cislo:=100 to 999 do
   begin
      a:=cislo div 100;
      b:=(cislo-a*100) div 10;
      c:=cislo-a*100-b*10;
      if (a<>b) and (b<>c) and (a<>c) then pocet:=pocet+1;
   end;

   writeln('Pocet vyhovujicich cisel: ',pocet);

   readln;

end.