Пожалуйста посчитайте , пожалуйста!

Var
A,B,k:integer;
Begin
k:=0;
Write('Введите нижнюю границу диапазона: ');
ReadLn(A);
Write('Введите верхнюю границу диапазона: ');
ReadLn(B);
For A:= A to B do
    if (A div 10)=(A mod 10) then k:=k+1;
WriteLn(k)
End.