PascaL ( SayısaL Loto Programı )

PascaL ( SayısaL Loto Programı )

program sayisal_loto;
var a,b,c,d,e,f,i,x:integer;
begin
write('Kaç Kolon İstiyorsunuz=');readln(x);
randomize;
for i:=1 to x do
begin
a:=random(49)+1;
b:=random(49)+1;
c:=random(49)+1;
d:=random(49)+1;
e:=random(49)+1;
f:=random(49)+1;
if a<>b then if a<>c then if a<>d then if a<>e then if a<>f then
if b<>c then if b<>d then if b<>e then if b<>f then
if c<>d then if c<>e then if c<>f then
if d<>e then if d<>f then
if e<>f then
if 0<a then if 0<b then if 0<c then if 0<d then if 0<e then if 0<f then
begin
writeln(a,' ',b,' ',c,' ',d,' ',e,' ',f);
end;
end;
writeln('BOL ŞANSLAR');
end.