Помогите, составить программу рост и вес среднестатистического учащегося в
Pascal ABC

Пожалуйста, указывайте версию языка Паскаль, если программа не может быть выполнена в любой из его версий. В вашем случае комментарии // не являются допустимыми во всех версиях языка.

Лучше всего в первой строке пишите что-то типа // Pascal ABC

Окей, понял, спасибо.

Школьники пытаются запускать программы, копируя их отсюда, а потом, если компилятор выдает ошибку, помечают решение неверным.

const n=3; //к-во учениковvar i:integer;sr,sw:real;r:array[1..n] of integer;w:array[1..n] of integer;beginsr:=0;sw:=0;for i:=1 to n dobeginwrite('Рост ',i,' ученика: ');readln(r[i]);sr:=sr+r[i];write('Вес ',i,' ученика: ');readln(w[i]);sw:=sw+w[i];end;sr:=sr/n;sw:=sw/n;writeln;writeln('Средний рост ученика: ',sr:5:2);writeln('Средний вес ученика: ',sw:5:2);end.