Сколько всего зеркальных пятизначных чисел?

Всего таких цифр 900: program peatizna4nie; uses crt; var a,i: longint; beginfor a: =10000 to 99999 do if (a div 10000)=(a mod 10) and (a div 1000 mod 10)=(a mod 100 div 10) then begin writeln (a); inc (i,1); end; writeln ('Количество=',i); end.