[lmikle]

Сообщение от RainbowEyes

не получается...

Что не получается? Твой код в студию?

Код:

function IsSquareOfEven(N : Integer) : Boolean;
begin
  Result := (N > 0) And                  // квадрат всегда > 0
               ((N mod 2) = 0) And       // квадрат четного числа всегда четный
               (Sqr(Sqrt(N)) = N) And   // кв. корень есть целое число
               ((Sqrt(N) mod 2) = 0);   // кв. корень четный
end;