Дан массив. Определить количество полных квадратов посреди частей массива. Вывести начальный

//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

begin
  var a:=ReadArrInteger(ReadInteger('Введите размер массива-gt;'));
  Println('Элементы массива, значение которых сочиняет полный
квадрат:');
  a.Where(t-gt;(tgt;=0) and (sqr(trunc(sqrt(t)))=t)).Println;
end.

Пример:

Введите размер массива-gt; 10
81 2 10 15 100 36 40 144 72 0
Элементы массива, значение которых сочиняет полный квадрат: 
81 100 36 144 0