Дан ряд четырехзначных натуральных чисел. из него вычеркивают числа, в которых сумма двух первых цифр равна сумме двух последних. составить алгоритм и описать его на паскале, позволяющий по заданному номеру 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.