(*        Teresa Tong F.4AS [30]  28/9/2001          *)
(*    To draw out six radom numbers within 47        *)

Program three_random_number;
uses wincrt;
Var RN1,RN2,RN3,RN4,RN5,RN6:integer;
Begin
     randomize;
     RN1:=random(47)+1;
     RN2:=random(47)+1;
     RN3:=random(47)+1;
     RN4:=random(47)+1;
     RN5:=random(47)+1;
     RN6:=random(47)+1;
            
     writeln('The six random numbers are ',RN1,' ',RN2,' ',RN3,' ',RN4,' ',RN5,' ',RN6)
end.

-----------------------------------------------------------------
e.g.
The six random numbers are 33 5 14 26 43 13