Составить программу, позволяющую определить, имеет ли число, введённое с клавиатуры целый корень( через оператор if)

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

Program s;
 var i : integer;
begin
 readln(i)
 if frac(sqrt(i)) = 0 then write('Yes.')
 else write ('No.');
end.