Определить и вывести на экран средний рост учеников класса с точность до сотых.Рост выводится в метрах . Кол-во учащихся в классе 15.
Заранее спасибо)

var  i:integer;  s,r:real;begin  s:=0;  Writeln('Введите рост 15 учеников в метрах');  for i:=1 to 15 do begin Read(r); s:=s+r end;  Writeln('Средний рост учеников равен ',s/15:0:2,'м.')end.Пример работы программыВведите рост 15 учеников в метрах1.56 1.63 1.60 1.66 1.62 1.60 1.54 1.66 1.60 1.55 1.60 1.66 1.61 1.67 1.69Средний рост учеников равен 1.62м.