Zadání:
Sestavte program, který nelezne nejmenší přirozené číslo, které je beze zbytku dělitelné všemi čísly z intervalu 1..10.

Řešení:
Zadání vyřešíme použitím cyklu WHILE. Do proměnné cislo vložíme hodnotu 1 (jedna) a otestujeme, zda vyhovuje
zadané podmínce. Pokud ne, zvýšíme (inkrementujeme) hodnotu proměnné cislo o jedničku a opět provedeme test.
Pokud bude nalezeno vyhovující číslo, cyklus WHILE končí a nalezená hodnota se vytiskne.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var cislo:integer;

begin

   cislo:=1;

   while (cislo mod 4<>0) or
         (cislo mod 5<>0) or
         (cislo mod 6<>0) or
         (cislo mod 7<>0) or
         (cislo mod 8<>0) or
         (cislo mod 9<>0) do cislo:=cislo+1;

    writeln(cislo);

    readln;

end.

Pro studenty:
Funkce mod vrací zbytek po celočíselném dělení.
Není nutné testovat v podmínce i dělitele 1,2,3,10 - přirozená čísla jsou dělitelná jedničkou automaticky, dvojka je obsažena v dělení čtyřkou, trojka v dělení devítkou a desítka v dělení pětkou a čtyřkou.

Pro učitele:
Cyklus WHILE lze nahradit cyklem REPEAT, ovšem v podmínce je třeba zaměnit relační operace <> za = a logickou operaci or za and.