uses crt;
var
a,r: real;
begin
clrscr;
write ('vvedite R: ');
readln (r);
write ('vvedite A: ');
readln (a);
if r>=(exp(1/3*ln(3))/3)*a
then writeln ('pomestits9')
else writeln ('ne pomestits9')
end.
uses crt;
var
a,r: real;
begin
clrscr;
write ('vvedite R: ');
readln (r);
write ('vvedite A: ');
readln (a);
if r>=(exp(1/3*ln(3))/3)*a
then writeln ('pomestits9')
else writeln ('ne pomestits9')
end.