в пяти тестов мальчик получил отметку составте программу которая находит среднюю отметку

varotm,i:integer;sr:real;beginotm:=0;WriteLn('Вводите отметки');for i := 1 to 5 do beginreadln(otm);sr:=sr+otm;end;sr:=sr/5;writeln('Ответ: ',sr);end.пж как лучший