Нужна с хешированием по информатике

var n, x, L, F, k, kint, max:integer;

begin

 kint := 0;

 max := 0;

 for n := 2095 to 19402 do begin

   x := n;

   k := 0;

   while x > 0 do begin

     k := k + 1;

     if k = 1 then

       L := x mod 10;

     F := x mod 10;

     x := x div 10;

   end;

   if (F > L)and(n mod 10 = 1)and((n div 10)mod 10 = 2)then begin

     kint := kint + 1;

     if n > max then

       max := n;

   end;

 end;

 writeln(kint,' ',max);

end.

Объяснение:

F - первая цифра числа

L - последняя(Слева направо)