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