«Построить гса для паскаль программы»

<div><p>uses crt;</p> <p>const MAX = 20;</p> <p>type student = record ln : string[20]; average : real; marks : array[1..6] of integer; end;</p> <p>var students : array[1..MAX] of student; i , j , n : integer; best : student;</p> <p>begin write(Input amount of students: ); readln(n); for i := 1 to n do begin with students[i] do begin writeln(Input data for , i , student: ); write( Lastname = ); readln(ln); write( Mathematics = ); readln(marks[1]); write( Physics = ); readln(marks[2]); write( Russian = ); readln(marks[3]); write( English = ); readln(marks[4]); write( Programming = ); readln(marks[5]); write( Economics = ); readln(marks[6]); for j := 1 to 6 do average := average + marks[j]; average := average / 6; end; end; best := students[1]; for i := 2 to n do if students[i].average &gt; best.average then best := students[i]; writeln(Best student: , best.ln , His average: , Best.average : 0 : 3); readkey; end.</p></div>