program mark6;
var A:array[1..49] of integer;
i,X:integer;
begin
randomize;
for i:= 1 to 49 do
A[i] := 0;
for i:= 1 to 6 do
begin
repeat
X:=trunc(random*49)+1;
until A[X] =0;
A[X] := 1
end;
for i:= 1 to 49 do
if A[i] =1 then
writeln(i)
end.