program stepen;
var 
 i:LongInt;
 a:extended;

FUNCTION x2np(x:extended;n:integer):extended;
Var i:INTEGER;
    y:Extended;
BEGIN
  IF n=0 THEN x2np:=1 ELSE
  IF n=1 THEN x2np:=x ELSE
  BEGIN
    y:=x;
    FOR i:=2 TO n DO y:=y*x;
    x2np:=y;
  END;
END;


begin
 write('vvedite 4islo a ');
 readln (a);
 i:=0;
 REPEAT
   INC(i);
 UNTIL x2np(3,i)>a;
 writeln ('n= ',i);
 readln;
end.

VAR
 i,j:INTEGER;
 b:BOOLEAN;

BEGIN
 b:=TRUE;
 FOR j:=2 TO 7 DO
  FOR i:=1 TO j-1 DO
   BEGIN
     IF ((i mod 2 = 0) AND (j mod 2 = 0)) OR
        ((i mod 3 = 0) AND (j mod 3 = 0)) THEN b:=FALSE;
     IF b THEN WriteLn(i:1,'/',j:1);
     b:=TRUE;
   END;
 ReadLn;
END.