Таблица по информатике которые у меня есть

Папирус. Мы обязаны изобретением бумаги египетскому папирусу.
*Черные чернила. Изобретением чернил мы также обязаны древнему Египту. Для их изготовления египтяне смешивали сажу, растительную смолу и пчелиный воск. Чтобы сделать чернила разных цветов, они заменяли сажу с другим органическим материалом. Например, они использовали охру вместо сажи, чтобы сделать чернила красными
* Плуг. Изобретение плуга не только коренным образом развило сельское хозяйство египетской общины, но модифицированная версия до сих пор используются фермерами отсталых стран, которые не могут себе позволить купить автоматические комбайны.
* Часы. Египтяне научили мир определять время суток, придумав часы. Они изобрели два типа часов: солнечные и водяные часы. Солнечные часы - это были обелиски на которых движущиеся тени в течение дня египтянам определять время дня.

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 - последняя(Слева направо)