program Pr1;var a,y,z:integer;x:real;beginreadln(a);if a mod 2 = 0 then begin x := exp(3*ln(a)); writeln(x:8:3); endelse begin a := a+3; writeln(a); end;end.
program Pr1;
var a,y,z:integer;
x:real;
begin
readln(a);
if a mod 2 = 0 then
begin
x := exp(3*ln(a));
writeln(x:8:3);
end
else
begin
a := a+3;
writeln(a);
end;
end.