Задача по Delphi

[gremt]

Написать программу, проверяющую, является ли число M степенью числа N и наоборот. M и N вводит пользователь. M и N не обязательно являются целыми числами.
__________________________________

помогите пожлуйста решить,чем смогу отблагодарю

[Stilet]

Ну дык чего не получается? Или за деньги готов?

[SERG1980]

Вот пример на паскале, сами переведите в делфи. Наверно не сложно будет

var i,r:integer;
begin
Writeln('Введите число');
readln(r);
Writeln('Введите степень');
readln(i);
r:=abs(r);
while (r>=i) do
begin
if r=i then write(', является степенью ',i);
r := r div i;
end;
readln;
end.