var ves: array [1..14] of integer = (25,21,23,28,30,25,31,28,25,28,30,27,26,24);
i,n,m25,i28,k28,p: integer;
begin
n:=0;
m25:=0;
i28:=0;
k28:=0;
p:=1;
write('Номера учащихся, чей вес превысил 26 кг: ');
for i:=1 to 14 do
begin
if ves[i]>26 then
begin
write (i,', ');
n:=n+1
end;
if ves[i]<25 then m25:=m25+ves[i];</p>
if ves[i]=28 then
begin
i28:=i28+i;
k28:=k28+1
end;
if ves[i]
end;
writeln;
writeln('Количество учащихся, чей вес превысил 26 кг: ',n);
writeln('Сумма всех масс учащихся, чей вес менее 25 кг: ', m25);
writeln('Среднее арифметическое индексов тех учащихся,чей вес равен 28 кг: ',i28/k28:0:3);
writeln('Произаедение индексов учащихся, чей вес меньше веса первого учащегося: ',p);
end.