[lmikle]

А как? Честно проверять через возведение в квадрат? Можно, конечно, и так, но этом, ИМХО, изврат и лишнее время при выполнении. Но если хочешь - напиши функцию вида:

Код:

function IsWholeSquare(N : Integer) : Boolean;
var
  I, J  : Integer;
begin
  Result := False;
  I := 1;
  J := 1;
  While J < N Do
    Begin
      J := I * I;
      Result := J = N;
      If Result Then Break;
      Inc(I);
    End;
end;

И проверяй "квадратичную целостность" через нее.
Но это лишний код.