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

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

Program bilet;var

a,b,c:longint;i:byte;beginwriteln('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.