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