program f;<br />
var x,y:byte;<br />
function NOD(x,y:byte):byte;<br />
begin<br />
while x*y<>0 do<br />
if x>y then x:=x mod y<br />
else y:=y mod x;<br />
NOD:=x+y;<br />
end;<br />
begin<br />
for x:=1 to 14 do<br />
for y:=x+1 to 15 do<br />
if NOD(x,y)=1 then writeln(x,'/',y);<br />
end.