Sayısal lotonun 8 kolonunun bilgisayarın rasgele ürettiği sayılara göre yazan pr

Sayısal lotonun 8 kolonunun bilgisayarın rasgele ürettiği sayılara göre yazan program.


uses crt;
   var
   i,a,b:integer;
   begin
   clrscr;
   randomize;
   for b:=1 to 8 do begin
   for i:=1 to 6 do begin
   a:=random(49);
   writeln(a+1);end;
   end;
   readln;

   end.


Linkback: https://www.buyuknet.com/sayisal-lotonun-8-kolonunun-bilgisayarin-rasgele-urettigi-sayilara-gore-yazan-pr-t8613.0.html