procedure EnterValues(); var i: integer; begin for i := 1 to n do begin readln(students[i].name); readln(students[i].gradeForExam1); readln(students[i].gradeForExam2); readln(students[i].gradeForExam3); students[i].averageGrade := (students[i].gradeForExam1 + students[i].gradeForExam2 + students[i].gradeForExam3) / 3; averageGradeAmongAllStudents := students[i].averageGrade / n; end; end;