Sayısal loto programı

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

Linkback: https://www.buyuknet.com/sayisal-loto-programi-t8612.0.html