Найти средний рост 32 учеников . 
Нужно написать программу! 

varmas:array[1..32] of real;i,k:integer;sum:real;beginfor 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.