Схема алгоритма

program lab1;
    const
        n=80;
        k=100;
    var
        a  : array[1..n] of integer;
        s,i: integer;
begin
    randomize;
    for i:=1 to n do
        begin
            a[i]:=random(k);
            write(a[i]:3);
            if i mod 10 = 0 then writeln;
        end;
    s:=0;
    for i:=1 to n do
    s:=s+a[i];
    writeln;
    writeln('S= ',s);
    readln;
end.

Program lab2;
       const
            n=255;
       type
            tx=array[0..n] of integer;
       var
            m   :tx;
            a   :char;
            i,s :integer;
begin
       for i:=0 to n do
            begin
                 m[i]:=i;
                 write(chr(i),' ');
            end;
       s:= 1;
       for i:= ord(s) to n do
       s:= s+m[i];
       writeln;
       writeln('S= ',s);
       readln;
end.

Program lab2;
       const
            n=255; {описываем константу  в количество элементов массива}
       type
            tx=array[0..n] of integer; {описываем тип массива от 0 до 255 символов}
       var
            m   :tx; {Пресваиваем переменной m значение массива}
            a   :char;
            i,s :integer;
begin
       for i:=0 to n do {цикл от 0 до 255}
            begin
                 m[i]:=i; {массиву присваивается i-ый элемент}
                 write(chr(i),' ');{Который затем выводиться в виде символа} 
            end;
       s:= 1;
       for i:= ord(s) to n do {Цикл от номера переменной S до 255}
       s:= s+m[i]; {Накапление в s символов массива}
       writeln;
       writeln('S= ',s); {вывод на экран массива в виде символов asc кода}
       readln;
end.

const
            n=80;

 s:= s+m[i]; {Накапливается сумма-S елементов массива}