Описать функцию square (k) логического типа, возвращающую True, если целый параметр k (>0) является квадратом некоторого числа, и False в противном случае. Паскаль

Var k: integer;

function square (k: integer) : boolean;

begin

if sqr (trunc (sqrt (k))) = k {Проверяем, является ли квадрат округлённого квадратного корня самим числом}

then

square : = true

else

square : = false; end;

begin

read (k) ;

writeln (square (k)) ;

end.