Решите вопросы , я просто глупый

Program ex; type mass=array[1..10] of integer; var sum, i: integer;             sr: real;           c: mass; begin writeln; write ('введите 10 элементов массива: '); for i: =1 to 10 do read(с[i]); sum: =0; for i: =1 to 10 do          begin              sum: =sum+c[i];           end; sr: =sum/2; write('среднее арифметическое=',sr); end.

var sum, k, i: integer;

begin readln (k); while k > 0 do begin sum : = sum + k mod 10; //прибавляем к сумме последнюю цифру в числе k k : = k div 10; //убираем из k эту последнюю цифру end; writeln(sum); end.

 

 

 

 

 

 

var a, b, c: integer;

begin  readln (a);   readln (b);   readln (c);   if + b) > c) and ((a + c) > b) and ((c + b) > a)) then //у треугольника сумма двух сторон больше третьей стороны    writeln('да')  else writeln ('нет'); end.