Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Project9;
- {$APPTYPE CONSOLE}
- {$R *.res}
- uses
- System.SysUtils;
- type
- TExam = record
- SubjectName: String;
- Mark: Byte;
- end;
- TStudent = record
- Name: String;
- Exams: array [0 .. 4] of TExam;
- end;
- TGroup = record
- GroupName: String;
- Students: Array [0 .. 29] of TStudent;
- end;
- TUniversity = record
- UniversityName: String;
- BuildingsCount: Integer;
- StudentsCount: Integer;
- Groups: array of TGroup;
- end;
- TUniversities = array of TUniversity;
- var
- Universities: TUniversities;
- begin
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement