var
 s:longint;
 x:string; 
 begin
  write('智商测试');
  writeln;write('你准备好了吗？');readln(x);if x='是的' then writeln('那就赶快开始吧！');
  writeln;writeln;
  writeln('一共10道题，每题14分。外加一道附加题，20分。');
  writeln('时间限制:60分钟');
  writeln('分数<=70===白痴');
  writeln('分数>=100 <=110===智商优秀');
  writeln('分数>110 <=120===智商很优秀');
  writeln('分数>120 <=130===智商非常优秀');
  writeln('分数>130 <=140===智商极为优秀');
  writeln('分数140+ ===天才');
  writeln;
  writeln('输入begin开始');readln(x);
  writeln;writeln;
  writeln('第一题：一年一度的运动会来临了，明明报名参加了男子1500米项目。随着枪声一响，运动员们如离弦之箭一样射了出去，明明一开始就领先了很多，在最后一圈他更是猛地加速，超过了倒数第一，这有可能吗？（输入有 或 没有）');
  readln(x);if x='有' then s:=s+14;
  writeln;
  writeln('第二题：找规律：2 8 14 20 （？）（输入下一个数）');
  readln(x);if x='26' then s:=s+14;
  writeln;
  writeln('第三题：找规律：1 3 7 13 （？） （输入下一个数）');
  readln(x);if x='21' then s:=s+14;
  writeln;
  writeln('第四题：找规律：a c f j （？） （输入下一个字母）');
  readln(x);if x='o' then s:=s+14;
  writeln;
  writeln('第五题：找规律：677 26 5 （？） （输入下一个数）');
  readln(x);if x='2' then s:=s+14;
  writeln;
  writeln('第六题：找规律填空：金黄的头发（黄山）高耸的山脉');
  writeln('                  华美的庄园（ ？ ）团结的国家');
  readln(x);if x='美国' then s:=s+14;
  writeln;
  writeln('第七题：马之于马棚，正如人之于：a.牛棚 b.马车 c.房屋 d.农场 e.楼房');
  readln(x);if (x='b') or (x='c') or (x='e') then s:=s+14;
  writeln;
  writeln('第八题：下列六个词语可否组成一个句子？ 球棒 的 用来 是 棒球 打 (可以 或 不可以）');
  readln(x);if x='可以' then s:=s+14;
  writeln;
  writeln('第九题：找规律：a=11 b=29 c=3');
  writeln('              a=7  b=39 c=12(b和a、c有什么关系？）');
  readln(x);if x='b=(a+c)*2+1' then s:=s+14；
  writeln;
  writeln('第十题：找规律：120 180 270 （？） （输入下一个数）');
  readln(x);if x='405' then s:=s+14;
  writeln;
  writeln('附加题（外加分，做错不扣）：');
  writeln('有这样一个数组：');
  writeln('-30 1 -29 2 -27 3 -24 5 -19……现问这个数组的第20个数是什么？');
  readln(x);if x='89' then s:=s+20;
  writeln;
  writeln('测试完毕');
  writeln('你的分数是:',s,'分');
  write('由此可见，你');
  if s<=60 then write('是白痴');
  if (s>60) and (s<100) then write('智商低下');
  if (s>=100) and (s<=110) then write('智商优秀');
  if (s>110) and (s<=120) then write('智商很优秀');
  if (s>120) and (s<=130) then write('智商非常优秀');
  if (s>130) and (s<=140) then write('智商极为优秀');
  if s>140 then write('是天才');
  writeln; writeln;writeln;writeln;
  writeln('谢谢测试');
  writeln('原创：洪天逸');
  writeln('请按回车键结束…');read(x);
 end.