var
a,b,s,z,n:real;
begin
readln(a);
n:=(a/100)*12;
s:=a-n;
writeln('Сумма=',a,'Налог=',n,'Зарплата=',s);
end.