Advertisement
deced

Untitled

Jun 10th, 2021
120
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.64 KB | None | 0 0
  1. program Project9;
  2.  
  3. {$APPTYPE CONSOLE}
  4. {$R *.res}
  5.  
  6. uses
  7. System.SysUtils;
  8.  
  9. type
  10. TExam = record
  11. SubjectName: String;
  12. Mark: Byte;
  13.  
  14. end;
  15.  
  16. TStudent = record
  17. Name: String;
  18. Exams: array [0 .. 4] of TExam;
  19. end;
  20.  
  21. TGroup = record
  22. GroupName: String;
  23. Students: Array [0 .. 29] of TStudent;
  24. end;
  25.  
  26. TUniversity = record
  27. UniversityName: String;
  28. BuildingsCount: Integer;
  29. StudentsCount: Integer;
  30. Groups: array of TGroup;
  31. end;
  32.  
  33. TUniversities = array of TUniversity;
  34.  
  35. var
  36. Universities: TUniversities;
  37.  
  38. begin
  39.  
  40. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement