Как сравниваются символьные величины, даты, логические величины?

Символьные величины сравниваются по коду в кодировочной таблице, если не указаны другие параметры даты - это обьект и сравниваются по хешу, скорее всего в этом случае хеш считает, как кол-во секунд от некой конкретной даты(нулевой даты) логические величины т.е. true и false, сравниваются равны или нет. хотя возможны и более сложные операции

var

a: [1..100] array of integer;

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.

1) 6 (худший вариант - 5+1)

2) 4 (худший вариант - 3+1)

3) 7 (худший вариант - 5+2)

4) 5 (худший вариант - 3+2)