Помогите решить задачку.

function happy(ticket) {
let result = false;
if (Number.parseInt(ticket)) {
let size = (ticket.toString()).length;
if (0 === size % 2) {
let middle, left, right, index;
middle = size / 2;
left = right = 0;
ticket = ticket.toString();
for (index = 0; index < size; index += 1) {
if (index < middle) {
left += ticket.charCodeAt(index);
} else {
right += ticket.charCodeAt(index);
}
}
if (left === right) {
result = true;
}
}
}
return result;
}

function integer(message) {
let num;
do {
num = Number.parseInt(prompt(message), 10);
} while (Number.isNaN(num));
return num;
}

function run() {
let start, end, ticket, result, line;
start = integer("Введите минимальный номер билета");
do {
end = integer("Введите максимальный номер билета");
} while (end <= start);
ticket = start;
result = [];
while (ticket <= end) {
if (happy(ticket)) {
result.push(ticket);
}
ticket += 1;
}
if (result.length > 0) {
let index;
line = "";
for (index = 0; index < result.length; index += 1) {
line += result[index] + "\n";
}
} else {
line = "Счастливые билеты отсутствуют!";
}
console.log(line);
}

run();

решение на Pascal

uses crt;
var start, finish, i: integer;
begin
clrscr;
writeln (' Введите два числа от 1000 до 9999 =' );
write (' Первое число =');
readln (start);
write (' Второе число =');
readln (finish);
writeln (' Счастливые билеты в диапазоне от ', start, ' до ', finish);
for i:= start to finish do
begin
if (i div 1000) + ((i div 100) mod 10) = ((i div 10) mod 10) + (i mod 10)
then write (i:8)
end;
readln;
end.

циклом перебирать и проверять равна ли сумма 1х 2х цифр и последних

let start = +prompt('А');
let end = +prompt('B');
for (let current = start; current != end; current++) {
let numerals = String(current).split('');
if (+numerals[0] + +numerals[1] == +numerals[2] + +numerals[3]) {
alert(current);
}
}