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

Var a:integer;
begin;
readln(a);
if frac(sqrt(sqrt(a)))=0 then writeln('Да') else writeln('Нет');
end.