Запишите на языке паскаль программу которая вычисляет сумму кодов букв в слове байт

  const      b = 'байт';     var    l,i,s : integer;           begin  l : = length(b);   s : = 0;     for i : = 1 to l do    s : = s +ord(b[i]);         writeln (s);   end.

12 3 4 5 6 7 8 9 10 11 12 13 uses   crt; var   s : real;   i ,n : integer; begin readln (n ); s : = 0; for i : =1 to n do   s : =s + ( exp ( ln (3 ) / exp ( ln (2 ) *i ) ) ); writeln (s /n ); readkey end.