Определить и вывести на экран средний рост воспитанников класса с точность

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м.