Прокомментируйте две программы

var i,n:integer;
    s:real;
begin
  write('n = ');readln(n);
  s:=0;
  for i:=1 to n do
      s:=s+1/(i*i*i*i);
  writeln('s = ',s:0:5);
  readln
end.
 
 
 
программа №14
 
var n,i:integer;
    a,a1,an:real;
begin
  write('n = ');readln(n);
  for i:=1 to n do
    begin
      write('A',i,' = ');readln(a);
      if i=1 then a1:=a;
      if i=n then an:=a;
    end;
  writeln('f = ',n+a1*an:0:2);
  readln;
end.

var i,n:integer;          //раздел описания переменных
    s:real;
begin
  write('n = ');readln(n);//ввод значения n - количество слагаемых в искомой сумме
  s:=0;                   //инициализируем сумму равной 0 (т.е. в начале сумма равна 0)
  for i:=1 to n do        //начало цикла от 1 до n (i на каждом шаге увеличивается на 1)
    s:=s+1/(i*i*i*i);     //на каждом шаге к значению суммы прибавляем i-е слагаемое
                          //на 1-м шаге: 1/(1^4) на 2: 1/(2^4) ...  1/(n^4)
                          //примечание: в условии задачи было i/(i^5), что было преобразовано в 1/(i^4)
  writeln('s = ',s:0:5);  //вывод на печать искомого значения суммы
  readln
end.

var n,i:integer;     //раздел описания переменных
    a,a1,an:real;
begin
  write('n = ');readln(n);  //ввод значения n - длина последовательности а
  for i:=1 to n do          //начало цикла от 1 до n (i на каждом шаге увеличивается на 1)
  begin
    write('A',i,' = ');readln(a);  //ввод всех значений от а1 до аn
    if i=1 then a1:=a;             //запоминаем 1-е
    if i=n then an:=a;             //и последнее значение
  end;                             //конец цикла
  writeln('f = ',n+a1*an:0:2);     //вывод на печать искомого значения n+a1*an
  readln;
end.