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

program zz1;

var i, i1, i2, i3, i4, k:integer; / /заводим переменные

begin

for i:=1000 to 9999 do / /заводим цикл для всех четырехзначных чисел

begin

i1:=i div 1000; / /находим первую цифру

i2: = (i div 100) mod 10; / /находим вторую цифру

i3: = (i div 10) mod 10; / /находим третью цифру

i4:=i mod 10; / /находим четвертую цифру

if (i1=i4) and (i2=i3) then k:=k+1; / / проверяем, если первая цифра равна четвертой и вторая цифра третьей, то число является палиндромом и считаем его

end;

write (k); / / выводим ответ

end.