Составить программу, позволяющую определить, имеет ли число, введённое с клавиатуры целый корень( через оператор 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.