var a,b,c:longint;
    d:real;
begin
read(a);
b:=a*3;
c:=b-8;
d:=(a+b+c)/3;
writeln(b);
writeln(c);
write(d:0:1);
end.
/**************************************************************
	Problem: 1601
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/