Определить и вывести на экран средний рост учеников класса с точность до сотых.Рост выводится в метрах . Кол-во учащихся в классе 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м.