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

program LuckyBusTickets;
var
ticketNumber, firstHalf, secondHalf, currentTicket: Integer;
i, count : Integer;
begin
currentTicket := 0;
count := 0;
for ticketNumber := 0 to 999999 do
begin
firstHalf := ticketNumber div 1000;
secondHalf := ticketNumber mod 1000;
if (firstHalf mod 10 + firstHalf div 10 + firstHalf div 100) = (secondHalf mod 10 + secondHalf div 10 + secondHalf div 100) then
begin
currentTicket := currentTicket + 1;
writeln('Счастливый билет: ', ticketNumber);
for i := 1 to 100 do
begin
if i*i = ticketNumber then
begin
writeln('Квадратный корень из номера билета: ', i);
break;
end;
end;
count := count + 1;
end;
end;
writeln('Всего найдено счастливых билетов: ', count);
end.

Эта программа проходит через все возможные автобусные билеты с шестизначными номерами и находит все счастливые билеты, для которых сумма цифр в первой половине номера равна сумме цифр во второй половине номера. Для каждого найденного счастливого билета программа также находит квадратный корень из номера билета и выводит его на экран. В конце программа выводит общее количество найденных счастливых билетов.