求PASCAL题目的答案，用比较简单的方法的出答案，在解释一下，最好不要用到什么函数，集合，自定义等等

求PASCAL题目的答案，用比较简单的方法的出答案，在解释一下，最好不要用到什么函数，集合，自定义等等
、谁拿了最多奖学金
问题描述】
某校的惯例是在每学期的期末考试之后发放奖学金。发放的奖学金共有五种，获取的条件各自不同：
1) 院士奖学金，每人8000元，期末平均成绩高于80分（>80），并且在本学期内发表1篇或1篇以上论文的学生均可获得；
2) 五四奖学金，每人4000元，期末平均成绩高于85分（>85），并且班级评议成绩高于80分（>80）的学生均可获得；
3) 成绩优秀奖，每人2000元，期末平均成绩高于90分（>90）的学生均可获得；
4) 西部奖学金，每人1000元，期末平均成绩高于85分（>85）的西部省份学生均可获得；
5) 班级贡献奖，每人850元，班级评议成绩高于80分（>80）的学生干部均可获得；
只要符合条件就可以得奖，每项奖学金的获奖人数没有限制，每名学生也可以同时获得多项奖学金。例如姚林的期末平均成绩是87分，班级评议成绩82分，同时他还是一位学生干部，那么他可以同时获得五四奖学金和班级贡献奖，奖金总数是4850元。
现在给出若干学生的相关数据，请计算哪些同学获得的奖金总数最高（假设总有同学能满足获得奖学金的条件）。
【输入文件】
输入文件scholar.in的第一行是一个整数N（1 <= N <= 100），表示学生的总数。接下来的N行每行是一位学生的数据，从左向右依次是姓名，期末平均成绩，班级评议成绩，是否是学生干部，是否是西部省份学生，以及发表的论文数。姓名是由大小写英文字母组成的长度不超过20的字符串（不含空格）；期末平均成绩和班级评议成绩都是0到100之间的整数（包括0和100）；是否是学生干部和是否是西部省份学生分别用一个字符表示，Y表示是，N表示不是；发表的论文数是0到10的整数（包括0和10）。每两个相邻数据项之间用一个空格分隔。
【输出文件】
输出文件scholar.out包括三行，第一行是获得最多奖金的学生的姓名，第二行是这名学生获得的奖金总数。如果有两位或两位以上的学生获得的奖金最多，输出他们之中在输入文件中出现最早的学生的姓名。第三行是这N个学生获得的奖学金的总数。
【样例输入】
4
YaoLin 87 82 Y N 0
ChenRuiyi 88 78 N Y 1
LiXin 92 88 N N 0
ZhangQin 83 87 Y N 1
【样例输出】
ChenRuiyi
9000
28700


8、放球（Ball.pas）
【问题描述】
把m个球放入编号为0，1，2，…，k-1的k个盒中(m<2k)要求第i个盒内必须放2i只球。如果无法满足这一条件，就一个不放，求出放球的具体方案。
【输入样例】Ball.in
5
【输出样例】Ball.out
0：1
1：0
2：4


9、角谷猜想(Tran.pas)
【问题描述】
在数学上，有一个称为角谷猜想(最早由日本数学家角谷静夫提出)的经典题，其内容是：“对任意的正整数n，若为偶数，则把它除以2，若为奇数，则把它乘以3加1。经过如此有限次运算后，总可以得到正整数值1”。
请你编一个程序，根据输入的正整数n，输出以上运算过程。
【输入格式】
输入数据仅一行包含一个正整数n(2≤n≤100)。
【输出格式】
一行输出一次运算的算式，算式中除了运算符号、等号及数字以外不包含其它任何字
符。
【输入样例】train.in
3
【输出样例】train.out
3*3+1=10
10/2=5
5*3+1=16
16/2=8
8/2=4
4/2=2
2/2=1

角谷猜想：
var
a:longint;
begin
readln(a);
while a>1 do
begin
if a mod 2=0 then begin writeln(a,'/2=',a div 2);a:=a div 2;end
else begin writeln(a,'*3+1=',a*a+1);a:=a*3+1;end;
end;
end.