Program RNDize (input,output); Var x:Integer; Begin Randomize; x:= random(50)+20; Writeln (x); End.
הפרוצדורה randomize גורמת להגרלה שונה כל פעם שהתוכנית מופעלת וקוראת לפונקציה random הפונקציה random מקבלת מספר שהוא מהווה הגבול העליון של ההגרלה ז"א שאם הכנסת חמישים אז הוא יגריל מספר בין 0 ל50 ואם אתה רוצה שהוא יתחיל להגריל מ20 אז אתה מוסיף מחוץ לסוגריים 20+ ז"א שהגבולות שלך יהיו 20-70 כל מספר שהוא יגריל אוטומטית הוא יהיה מספר ועוד עשרים.