назовем число палиндромом, если оно не меняется при перестановке его цифр в обратном порядке. напишите программу, которая по заданному числу k выводит количество натуральных палиндромов, не превосходящих k. входные данные задано единственное число k (1< =k=< 100000). выходные данные необходимо вывести количество натуральных палиндромов, не превосходящих k. пс функции не проходили, надо как то без них
var count,k,m,R,L:longint;
begin
count:=0;writeln('Введите k'); readln(k);
for L:=1 to k do
begin
R:=0; m:=L;
while m>0 do
begin
R:=R*10+m mod 10;
m:=m div 10;
end;
if R=L then count:=count+1;
end;
writeln(count);
end.