Описать функцию 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.