Отрицательные и положительные числа. Задачка по програмированию. Снова жду умняшек
(Использую Паскаль! )​

Var a,b,c:real;
begin
readln(a,b,c);
if (a = b) and (b = c) then begin
writeln ('Треугольник равносторонний');
writeln('Его высота = ',(sqrt(3) * a)/2:0:3)
end else 
if (a = b) or (b = c) or (c = a) then begin
writeln('Треугольник равнобедренный');
writeln('Его полупериметр = ',(a+b+c)/2);
end else
begin 
writeln('Треугольник разносторонний');
if (a>b) and (a>c) then writeln('Большая сторона = ',a) else
if (b>a) and (b>c) then writeln('Большая сторона = ',b) else
writeln('Большая сторона = ',c); end;
end.

Var  massa: array [1..30] of real;
  i, n: integer;
  sum: real;

begin
  Write('Сколько учеников в подгруппе? ');
  Readln(n);
  Writeln('Введите вес учеников');
  for i := 1 to n do   begin
    readln(massa[i]);
    sum := sum + massa[i]
  end;
    Writeln('Средий вес ученика подгруппы: ', sum / n);
end.

Если известно что их 26, то можно написать так

var  massa: array [1..26] of real;
  i: integer;
  sum: real;

begin
  Writeln('Введите вес учеников');
  for i := 1 to 26 do   begin
    readln(massa[i]);
    sum := sum + massa[i]
  end;
    Writeln('Средий вес ученика подгруппы: ', sum / 26);
end.