решите информатику. много баллов

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];

if ves[i]=28 then

begin

i28:=i28+i;

k28:=k28+1

end;

if ves[i]<ves[1] then p:=p*i

end;

writeln;

writeln('Количество учащихся, чей вес превысил 26 кг: ',n);

writeln('Сумма всех масс учащихся, чей вес менее 25 кг: ', m25);

writeln('Среднее арифметическое индексов тех учащихся,чей вес равен 28 кг: ',i28/k28:0:3);

writeln('Произаедение индексов учащихся, чей вес меньше веса первого учащегося: ',p);

end.