program z5_97; var n,m : integer; begin for n:=1 to 6 do for m:= n+1 to 7 do if (n=1) or(m mod n<>0) then write(n,'/', m,' '); end. end.