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

var
otm,i:integer;
sr:real;
begin
otm:=0;
WriteLn('Вводите отметки');
for i := 1 to 5 do
begin
readln(otm);
sr:=sr+otm;
end;
sr:=sr/5;
writeln('Ответ: ',sr);
end.



пж как лучший