Дано число N.Найти количество чисел в интервале от 1 до N ,являющихся перевёртышами-при выписывании их цифр в обратном порядке получается тоже самое число.

Var   N,A,B:longint;   k:integer;Begink:=0;Write('N = ');ReadLn(N);For N:= 1 to N do    Begin    A:=N;    B:=0;    While A > 0 do       Begin       B:=B*10+(A mod 10);       A:=A div 10       End;    if B=N then k:=k+1    End;WriteLn('Искосое количество: ',k)End.