Задача в PascalABC.NET с Random (только подсказать)

[AntoshkaK]

Мне вместо ?? надо поставить промежуток от 1 до 3. Как сделать?

Program XXX;
Uses GraphABC;
var
  W, H, r:Integer;
Begin
   r:=random(??);
    W:=ScreenWidth div 4;
    H:=ScreenHeight div 4;
   SetWindowTitle('Светофор');
   SetWindowSize (w, h);
   CenterWindow;
    Circle(WindowWidth div 2, WindowHeight div 6, WindowHeight div 6);
     Circle(WindowWidth div 2, WindowHeight div 6+WindowHeight div 3, WindowHeight div 6);
      Circle(WindowWidth div 2, WindowHeight div 3+WindowHeight div 2, WindowHeight div 6);
   If r=1 Then
     Floodfill(WindowWidth div 2, WindowHeight div 6, clRed)
   Else
    If r=2 Then
      FloodFill(WindowWidth div 2, WindowHeight div 6+WindowHeight div 3, clYellow)
    Else
     If r=3 Then
       FloodFill(WindowWidth div 2, WindowHeight div 3+WindowHeight div 2, clGreen);
End.

[9i.]

http://g.zeos.in/?q=%D1%81%D0%BB%D1%...scal%20abc.net

[IT-man]

r:=random(3)+1;