procedure Next(var M, N: Integer);
begin
if M > N - 2 then
begin
M := 1;
N := N * 2;
end
else
begin
M := M + 2;
end;
end;
var
M: Integer = 1;
N: Integer = 2;
I: Integer;
begin
for I := 1 to 100 do
begin
WriteLn(M, '/', N);
Next(M, N);
end;
ReadLn;
end.