Zadání:
Sestavte program, který nalezne trojici čísel z intervalu 1..10, jejíž součet se rovná jejímu součinu.

Řešení:
Zadání vyřešíme použitím tří vnořených cyklů FOR. První cyklus pro proměnnou a proběhne od hodnoty 1 (jedna)
do hodnoty 10, ostatní cykly (vzhledem k tomu, že se ve trojici nemohou čísla opakovat) proběhne od hodnoty řídící
proměnné nadřazeného cyklu povýšenou o 1 (jedna) do hodnoty 10.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c: integer;

begin

   for a:=1 to 10 do
      for b:=a+1 to 10 do
         for c:=b+1 to 10 do
            if a+b+c=a*b*c then writeln(a:3,b:3,c:3);

   readln;

end.