Даны натуральные числа n, a1,…,an, где n≤3000. Найти члены ak последовательности a1,…,an, являющиеся квадратами четных чисел, и определить их количество — Pascal(Паскаль)

uses crt;

var
  a: array [1 .. 3000] of integer;
  e, i, k: integer;
  r: real;

begin
  for i := 1 to high(a) do
  begin
    r := sqrt(a[i]);
    k := trunc(sqrt(a[i])); { }
    if ((r - k) = 0) and ((trunc(sqrt(a[i])) mod 2) = 0) then
    begin
      write(a[i]:5);
      inc(e);
    end;
  end;
  writeln;
  writeln(e);

end.