Дано натуральное число n. Выяснить, является ли оно полным квадратом. Определить функцию, позволяющую распознавать полные квадраты — Pascal(Паскаль)

uses crt;
function Kvadrat(x:longint):boolean;
begin
if sqr(trunc(sqrt(x)))=x then Kvadrat:=true
else Kvadrat:=false;
end;
var n:longint;
begin
clrscr;
write('n=');readln(n);
if Kvadrat(n) then write('Yes!')
else write('No!');
readln
end.