Фрагмент скрипта представлен в игровой среде определите тип алгоритма, опишите определённый вами тип алгоритма

первым кому удалось расшифровать египетские иероглифы, был французкий ученый жан-франсуа шампольон (1790-1832). он составил полный список иероглифов и их гречиских эквивалентов создав тем самым основу для перевода всех египетских текстов.

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.

writeln('a[',i,']=',a[i]);

readln;

end.

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.