jzxx1783小高考

题目描述
懒羊羊在前一阵准备羊村的小高考复习时表现出了罕见的勤奋，现在他得知了小高考四门必修课的成绩，他想知道根据羊村的高考政策，他在羊村高考中能加几分。
羊村高考政策如下：
分数段 等级
成绩>=90 A
90>成绩>=75 B
75>成绩>=60 C
成绩<60 D
每得一个A，可在羊村高考中加1分，若得4A，则可以加5分。当然，只要有一门功课得D，那么就将失去羊村高考资格。

输入
仅有一行，4个不大于100的非负整数，相邻两数之间用空格隔开。

输出
仅有一行，若有D级存在，则输出“Poor LanYangYang”(引号不输出，注意大小写)；否则输出懒羊羊在羊村高考中的加分。

样例输入
样例1:
100 95 89 94
样例2:
0 0 0 0
样例输出
样例1:
3
样例2:
Poor LanYangYang

来源
常州市2010“信息与未来”夏令营选拔赛

满分代码：
var  a,i,s:integer;
begin
s:=0;
for i:=1 to 4 do
begin
read(a);
if a>=90 then inc(s);
if a<60 then begin write('Poor LanYangYang');
exit;
end;
end;
if s=4 then s:=5;
writeln(s);
end.