Příklady - Výpisy čísel do okna

(* Ukázka cyklu, který formátovaně vypíše 10 činností.

   Každá činnost je určena svým názvem a časovým intervalem v minutách.
   Časy vypisuje ve tvaru např. 10:30 - 12:00 *)
  Const CelkemCinnosti = 10;
  dim OdMin(10)   : Word;
  dim DoMin(10)   : Word;
  dim Cinnost(10) : String[20];
  ...
  For I := 0 to CelkemCinnosti-1 do
   ...
    PrintLn(" Â ", Cinnost[I]:15,
              " Â ", (OdMin[I] div 60):2,":",(OdMin[I] mod 60):2,
              " - ", (DoMin[I] div 60):2,":",(DoMin[I] mod 60):2)
   ...
  end;