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

Программка, которая сопоставляет 1-ые 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 ilt;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,' lt;gt; ',b);
readln;
end.