var
a : Real;
k : Integer;
begin
k := 81;
a:=exp((1/3)*ln(k)); {извлечём кубический корень}
if frac(a) <= 0.000001 then
writeLn('Является')
else
writeLn('Не является')
end.
dmFyCglhIDogUmVhbDsKCWsgOiBJbnRlZ2VyOwpiZWdpbgoJayA6PSA4MTsKCWE6PWV4cCgoMS8zKSpsbihrKSk7IHvQuNC30LLQu9C10YfRkdC8INC60YPQsdC40YfQtdGB0LrQuNC5INC60L7RgNC10L3RjH0KCWlmIGZyYWMoYSkgPD0gMC4wMDAwMDEgdGhlbiAKCQl3cml0ZUxuKCfQr9Cy0LvRj9C10YLRgdGPJykKCWVsc2UgCgkJd3JpdGVMbign0J3QtSDRj9Cy0LvRj9C10YLRgdGPJykKZW5kLg==