Декодирование. расшифровать сообщения

Система письменности в Древнем Египте сложилась к началу I династии, то есть примерно в 4 тысячелетии до н. э. На протяжении многих лет самыми ранними иероглифическими надписями считались надписи на палетке Нармера (приблизительно 3200 до н. э.). Однако в 1998 году немецкая группа археологов под руководством Гюнтера Дрейера на раскопках в Абидосе (современный Умм-эль-Кааб) обнаружили в гробнице додинастического правителя триста глиняных табличек покрытых протоиероглифами (датируются 33-м веком до н.э). Первое предложение, написанное иероглифами, найдено на печати времен II династии из могилы Сет-Перибсена в Умм эль-Кааб. 

Первоначально египетское письмо было пиктографическим (рисуночным): слова изображались наглядными рисунками, например: 

— солнце, 

— бык. 
Следующим шагом было создание идеографического (смыслового) письма. При знаков этого письма, идеограмм, можно было записывать некоторые отвлеченные понятия, — например, знаком 

(горы) — горную, то есть чужеземную, страну; 

(солнце) — слово «день», исходя из того, что солнце светит лишь днем. Идеограммы играют большую роль и впоследствии в развитой системе египетской письменности. Например, все смысловые определители являются идеограммами. 
Позже появляются звуковые знаки, в которых изображенный рисунок связан уже не со значением слова, а с его звуковой стороной

Var i, a, s: integer;
begin
     readln(a);
     for i := a to 500 do
         s := s + i;
     writeln(s);
end.

2) 
var i, a, s, c, b: integer;
begin
     readln(a, b);
     for i := a to b do
     begin
         s := s + i;
         c := c + 1;
     end;
     writeln(s / c:4:2);
end.

3)
const N=10;
var i, b, s: integer;
    a: array [0..N] of integer;
begin
     readln(b);
     for i := 0 to N do a[i] := random(9000);
     for i := 0 to N do
         if (a[i] < b) then s := s + i;
     for i := 0 to N - 2 do
         if (a[i+1] = b) then writeln('(', a[i], '; ', a[i+2], ')');
     writeln(s);
end.

=)