uses crt; var n, m, d, so: longint; begin clrscr; writeln ('ban muon in ra may so bat ki: '); readln (n); writeln ('trong pham vi nho hon hoac bang: '); readln (m); repeat randomize; so:=random(m+1); writeln (so); d:=d+1; until (d=n); readln; end.
uses crt; var n, tg, so, nh: longint; begin clrscr; writeln ('ban muon in ra may so bat ki: '); readln (n); writeln ('trong pham vi nho hon hoac bang: '); readln (nh); repeat randomize; so:=random(nh+1); writeln (so); tg:=tg+1; delay (50); until tg=n; readln; end.
