```pascal
program Bai1_DaySo;
var
n, i, sum, count, min, max: integer;
arr: array[1..100] of integer;
avg: real;

function isPerfectSquare(num: integer): boolean;
var
sqrtNum: integer;
begin
sqrtNum := trunc(sqrt(num));
isPerfectSquare := sqrtNum * sqrtNum = num;
end;

begin
write('Nhap so phan tu cua day: ');
readln(n);

sum := 0;
min := maxint;
max := -maxint;

for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(arr[i]);

sum := sum + arr[i];

if arr[i] < min then
min := arr[i];
if arr[i] > max then
max := arr[i];
end;

avg := sum / n;

writeln('Cac so chinh phuong cua day:');
count := 0;
for i := 1 to n do
begin
if isPerfectSquare(arr[i]) then
begin
write(arr[i], ' ');
count := count + 1;
end;
end;
writeln;
writeln('So luong: ', count);

writeln('Cac so lon hon trung binh cong cua day:');
for i := 1 to n do
begin
if arr[i] > avg then
write(arr[i], ' ');
end;
writeln;

writeln('Cac so khong thuoc day:');
for i := min + 1 to max - 1 do
begin
if not (i in arr) then
write(i, ' ');
end;

end.
```
Bạn có thể sao chép mã code trên và chạy trên trình biên dịch Pascal để kiểm tra kết quả. Chúc bạn thành công!