Pascal только ветвление

[Nikita++]

В каждую крайнюю клетку квадратной доски поставили по фишке. Могло ли оказаться, что выставлено ровно k фишек? (Например, если доска 2 x 2, то выставлено 4 фишки, а если 6 x 6 - то 20).

Вводится одно натуральное число k.
Входные данные

Выходные данные

20

YES

13

NO

[Don Karleone]

flag:=k = (Sqr(n) - Sqr(n-2));

где n - размерность доски.

[Nikita++]

Вводится только k

[Don Karleone]

Сообщение от Nikita++

Вводится только k

Ну а размер доски то какой? Прога от болды сам должна придумать??????

[evg_m]

(k-4) mod 4 =0

[Nikita++]

Я отправляю и у меня ошибка на 1 тесте. N=k div 4 +1. Размер n на n. А вот почему-то не идет:

program Fishki;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   k,n:word;
begin
   readln(k);
   if (k mod 4=0) then writeln('YES')
      else writeln('NO');
      readln;
end.

[Don Karleone]

Nikita++, вам же написали (k-4) mod 4 = 0. А вы что в коде пишите.

[Nikita++]

А разница то? Если k mod 4=0,то и (k-4)mod 4 =0