function isLucky(a: integer): boolean;
var s: string;
begin
str(a, s);
while length(s) < 6 do s := '0' + s;
isLucky := ord(s[1]) + ord(s[2]) + ord(s[3]) = ord(s[4]) + ord(s[5]) + ord(s[6])
end;
var
sTicket: string;
iTicket, i, err, sum: longint;
begin
write('Введите Ваш номер билета: ');
read(sTicket);
val(sTicket, iTicket, err);
for i := 1 to iTicket do
if isLucky(i) then inc(sum);
writeln('Выдано ', sum, ' счастливых билетов');
writeln('Осталось выдать ', 55251 - sum, ' счастливых билетов')
end.