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

uses crt;

const MAX = 20;

type student = record ln : string[20]; average : real; marks : array[1..6] of integer; end;

var students : array[1..MAX] of student; i , j , n : integer; best : student;

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 > best.average then best := students[i]; writeln(Best student: , best.ln , His average: , Best.average : 0 : 3); readkey; end.