(*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
               (
geocities.com/hk)