sayısal loto
uses crt;
var
a,b,c,d,e,f:integer; k,l:real;
begin clrscr;
repeat
randomize ;
repeat
a:=random(50);
until (a<>0);
Write (' a...:',a:2);
repeat
b:=random(50);
until (b<>0) and (b<>a);
Write (' b...:',b:2);
repeat
c:=random(50);
until (c<>0) and (c<>a) and (c<>b);
Write (' c...:',c:2);
repeat
d:=random(50);
until (d<>0) and (d<>a) and (d<>b) and (d<>c);
Write (' d...:',d:2);
repeat
e:=random(50);
until (e<>0) and (e<>a) and (e<>b) and (e<>c) and (e<>d);
Write (' e...:',e:2);
repeat
f:=random(50);
until (f<>0) and (f<>a) and (f<>b) and (f<>c) and (f<>d) and (f<>e);
Write (' f...:',f:2);
readln;
until readkey=#27;
readkey;
end.
uses crt;
var
a,b,c,d,e,f:integer; k,l:real;
begin clrscr;
repeat
randomize ;
repeat
a:=random(50);
until (a<>0);
Write (' a...:',a:2);
repeat
b:=random(50);
until (b<>0) and (b<>a);
Write (' b...:',b:2);
repeat
c:=random(50);
until (c<>0) and (c<>a) and (c<>b);
Write (' c...:',c:2);
repeat
d:=random(50);
until (d<>0) and (d<>a) and (d<>b) and (d<>c);
Write (' d...:',d:2);
repeat
e:=random(50);
until (e<>0) and (e<>a) and (e<>b) and (e<>c) and (e<>d);
Write (' e...:',e:2);
repeat
f:=random(50);
until (f<>0) and (f<>a) and (f<>b) and (f<>c) and (f<>d) and (f<>e);
Write (' f...:',f:2);
readln;
until readkey=#27;
readkey;
end.
