Pascal :

var a:integer;
begin
  read(a);
if a>10 then writeln(a*2*0.9:0:1) else writeln(a*2);
end.