Příklady - Vstup čísel

(* Ukázka jednoduchého cyklu, který očekává hodnotu z intervalu

   MinValue..MaxValue     *)
    Repeat
      GotoXY(20, 1)
      Input(Value)
    Until (MinValue /= Value) and (Value /= MaxValue);