Найти средний рост 32 учеников.

Нужно написать программу!

Var

mas:array[1 ... 32] of real;

i, k:integer;

sum:real;

begin

for i: = 1 to 32 do

begin write ('Введите рост ', i,' ученика'); readln (mas[i]) end;

writeln;

sum:=0;

k:=0;

for i: = 1 to 32 do

begin sum:=sum+mas[i]; k:=k+1 end;

write (sum/k)

end.