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.
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.