даны билеты с номерами от 0001 до 9999, найти кол-во счастливых билетов

var n, i: integer;begin     n := 0;     for i := 1 to 9999 do     if i mod 10 + i div 10 mod 10 = i div 100 mod 10 + i div 1000 then        n := n + 1;     writeln(n);end.