var m: Integer;begin
Write('Введите m: '); Readln( m );
if sqr(m) > 2*m then m := m*10 else m := m div 2; Write( m ); Readln;end.