Var A,B,S,S13:integer;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('Количество пиковых чисел на отрезке [',A,';');
For A:= A to B do 
if ((A div 10) mod 10> A mod 10)and( (A div 10) mod 10> A div 100) then Begin
S:=S+1;
if S mod 13 = 0 then S13:=S13+1
End;
WriteLn(B,'] = ',S);
WriteLn('Из них ',S13,' кратны 13.');
End.