Véletlen pontok – FreePascal

A véletlenszám-generátor inicializálása:

randomize;

A véletlen pontok koordinátáinak kiszámítására szolgáló utasítások:

x:=random(640);
y:=random(480);

A program futása közben készített képernyőképek: