program example4;
var max:record
name:string;
money:longint;
z:longint;
end;
ch,c,d:char;
name,s:string;
i,j,a,b,e,n,money:longint;
procedure duru;
begin
name:='';
repeat
read(ch);
if (ch=' ') then break;
name:=name+ch;
until false;
repeat
read(ch);
if (ch=' ') then break;
s:=s+ch;
until false;
val(s,a);
s:='';
repeat
read(ch);
if (ch=' ') then break;
s:=s+ch;
until false;
val(s,b);
s:='';
repeat
read(ch);
if (ch=' ') then break;
c:=ch;
until false;
repeat
read(ch);
if (ch=' ') then break;
d:=ch;
until false;
s:='';
readln(ch);
s:=s+ch;
val(s,e);
end;
begin
readln(n);
for i:=1 to n do
begin
duru;
money:=0;
if (a>80) and (e>=1) then money:=money+8000;
if (a>85) and (b>80) then money:=money+4000;
if (a>90) then money:=money+2000;
if (a>85) and (d='Y') then money:=money+1000;
if (b>80) and (c='Y') then money:=money+850;
if (money>max.money) then
begin
max.name:=name;
max.money:=money;
end;
max.z:=max.z+money;
end;
writeln(max.name);
writeln(max.money);
writeln(max.z);
end.

if并行语句改编成一个函数或者过程去调用