Program z5;
  Var a:integer;
Begin
  write('Ââåäèòå ÷èñëî - '); readln(a);
  
  if (a > 5) then write(a*2) 
             else write(a);
  
End.