VAR S,K: INTEGER;
BEGIN
S:=1;
FOR K:=3 DOWNTO 0 DO
S:=S*3;
WRITELN \(S\)
END.