Дан ряд четырехзначных натуральных чисел. Из него вычеркивают числа, в которых сумма двух первых цифр равна сумме двух последних. Составить алгоритм и описать его на Паскале, позволяющий по заданному номеру N вывести соответствующее ему число в новой последовательности.

var n, cnt, i : integer;begin  readln(n);  cnt := 0;  i := 1000;  while cnt < n do begin    if i mod 10 + (i div 10) mod 10 <> (i div 100) mod 10 + i div 1000 then      cnt := cnt + 1;    i := i + 1;  end;  writeln(i - 1);end.