(*Cathy Ngai F.4AS (24)*)
(*purpose:use the program to draw  our 6 random numbers*)
Program ThreeRandomNumber;
uses wincrt;
Var N1,N2,N3,N4,N5,N6:integer;
Begin
     randomize;
     N1:=random(47)+1;
     N2:=random(47)+1;
     N3:=random(47)+1;
     N4:=random(47)+1;
     N5:=random(47)+1;
     N6:=random(47)+1;
            
     writeln('The 6 random numbers are ',N1,' ',N2,' ',N3,' ',N4,' ',N5,' ',N6)
end.
*******************************************************************
output 1
The 6 random numbers are 5,33,14,25,2,9

output 2
The 6 random numbers are 2,41,15,3,16,25

    Source: geocities.com/hk/cathy_740

               ( geocities.com/hk)