Счастливый Билет Delphi

Помните, когда для оплаты в общественном транспорте нужно было покупать билеты со встроенной лотерейной игрой? Оказывается, на Delphi можно написать программу проверки выигрышных билетов и стать обладателем счастливого билета.Пример кода:

program LuckyTicketChecker;{$APPTYPE CONSOLE}uses  SysUtils;function IsLuckyTicket(TicketNumber: string): boolean;var  HalfLength: Integer;  i: Integer;  Sum1: Integer;  Sum2: Integer;begin  Result := False;  HalfLength := Length(TicketNumber) div 2;  Sum1 := 0;  Sum2 := 0;  for i := 1 to Length(TicketNumber) do  begin    if i <= HalfLength then      Sum1 := Sum1 + StrToInt(TicketNumber[i])    else      Sum2 := Sum2 + StrToInt(TicketNumber[i]);  end;  if Sum1 = Sum2 then    Result := True;end;var  TicketNumber: string;begin  Write('Введите номер вашего билета: ');  ReadLn(TicketNumber);  if IsLuckyTicket(TicketNumber) then    WriteLn('Поздравляем, ваш билет счастливый!')  else    WriteLn('К сожалению, ваш билет не является счастливым.');  ReadLn;end.

Программа принимает номер билета в формате строки и использует функцию IsLuckyTicket для проверки, является ли билет счастливым. Функция проходит по цифрам номера билета, складывая первую половину сумму в переменную Sum1 и вторую половину сумму в переменную Sum2. Если обе суммы совпадают, билет считается счастливым.