Составить программу печатающую зн ачение true если указанное высказывание является истинным, и false - в противном случае натуральное число n является точным квадратом

Var n:integer;
b:boolean;
begin;
readln(n);
if frac(sqrt(n))=0 then b:=true else b:=false;
writeln(b);
end.