Составьте программу паскаль для нахождения всех счастливых автобусных билетов чтобы из низ извлекался квадратный корень

Программа, которая сравнивает первые 3 со вторыми 3 мя ниже, но я не понял к чему было упоминание корня в первоначальном задании

Program bilet;

var

a, b, c:longint;

i:byte;

begin

writeln ('vvrdite nomer') ;

readln (a) ;

b:=0;

c:=0;

for i:=1 to 6 do

if i<4 then begin

b:=b + (a mod 10) ;

a:=a div 10;

end

else begin

c:=c + (a mod 10) ;

a:=a div 10;

end;

if b=c then writeln ('schastlivuy ', c,' = ', b)

else writeln ('uvyu ', c,' ', b) ;

readln;

end.