Составить программу, которая подсчитывает количество палиндромов среди натуральных четырехзначных чисел. Pascal

vari, k: integer;begink:=0;for i:=1000 to 9999 doif (i div 1000 = i mod 10) and (i div 100 mod 10 = i mod 100 div 10) theninc(k);writeln(k);end.