Дано натуральное число. Проверить, является ли оно четвертой степенью некоторого натурального числа. Язык программирования: Паскаль

Предыдущий
вопрос Следующий
вопрос

program fourthPower;

var
n, i: Integer;
isFourthPower: Boolean;

begin
isFourthPower := false;

// Ввод числа
write('Введите натуральное число: ');
readln(n);

// Проверка на четвертую степень
for i := 1 to trunc(sqrt(n)) do
begin
if i i i * i = n then
begin
isFourthPower := true;
break;
end;
end;

// Вывод результата
if isFourthPower then
writeln(n, ' является четвертой степенью натурального числа.')
else
writeln(n, ' не является четвертой степенью натурального числа.');
end.